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近 十 余年 来 ， 作 者 一 直 讲 授 大 学 本 科 生 的 “ 固 迟 物理 学 
(I )” 和 研究 生 的 “固体 物理 学 《I )” 课 程 , ЖАЗЫМ. ЗЕН 
体 、 液 体 的 原子 构 型 和 电子 结构 、 振 动 谱 以 及 磁 、 电 、 光 等 物理 
性 质 诸 方 面 课题 的 计算 机 研究 ， 在 教学 和 科研 实践 中 ， 我 们 深 深 
”感到 , 如果 有 一 本 计算 固体 物理 学 方面 的 书 , 将 是 大 有 帮助 的 . 由 
于 计算 固体 物理 学 下 处 在 迅速 发 佑 的 阶段 ， 各 方面 还 不 成 熟 ， 仍 
未 见 到 过 一 本 正式 出 版 的 此 类 专 行 书籍 . ЖАПЫ. ЛЕЙ 教授 
等 老 前 辈 的 鼓励 下 ， 作 者 结合 教学 和 科研 中 一 些 有 代表 性 的 计算 
ЖЕР, ЛАН ИМЕЛ. беп. TRI T. 

因 体 物理 学 是 物理 学 的 一 个 重要 组 成 部 分 ， 近 年 来 由 于 研 完 
固体 的 一 些 基本 概念 ,理论 方法 和 实验 技术 已 成 功 地 应 用 到 液体 、 
液晶 等 非 固 态 材料 的 研究 ,使 固体 物理 党 延 要 为 凝 售 态 物 理学 . 传 
统 土 ， 物 理学 分 成 理论 物理 学 和 实验 物理 学 两 大 类 ， 相 应 地 ， 轿 
体 物理 学 也 分 成 理论 固体 物理 学 与 实验 固体 物理 学 两 个 分 文 ， 将 
物理 学 和 有 关 学 科 的 一 些 重要 的 理论 、 原理 和 方法 , 如 量子 理论 、 
热力 学 统计 理论 、 弹 性 理论 和 群 论 等 应 用 到 固体 和 的 研究 ， 建 造 了 
近代 理论 固体 物理 学 的 宏伟 大 厦 ， 将 各 种 先进 的 实验 技术 ， 如 珊 
分 辨 的 显 微 分 析 、 和 辐射 衍 射 的 结构 分 析 、 各 种 谱 分 析 、 常 规 和 极 
端 条 件 《如 超低温 、 超 高 讨 、 eh 强 激光 ) 下 性 能 的 精密 测 
试 等 分 析 测 试 技 术 ， 以 及 成 分 、 组 织 和 结构 可 控 的 材料 和 锋 件 的 
制备 技术 ， 用 于 轿 体 的 研究 ， А АННЫ ЧЕЧЕТ Æ 
АЖ. ERR., БЕН. КИЕР ЖЕН ИИН ИЛЕ. Ж 
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展 过 程 中 ， 实 验 园 体 物 理学 和 理论 谍 体 物理 学 紧密 配合 ， 相 得 益 
彰 。 推 动 整个 固体 物理 学 的 发 展 ， 而 新 原理 、 新 规律 的 党 现 和 新 
理论 的 建立 ， 导 致 新 材料 、 新 器 件 和 新 工艺 的 出 现 ， 直 至 在 生产 
技术 上 大 规模 采用 ， 而 生产 技术 的 发 展 又 提出 新 闻 题 ， 出 现 新 需 
要 ,固体 物理 学 与 生产 技术 就 是 这 样 互相 依存 、 互 相 促 进 、 不 断 
发 展 的 . 

正 是 国体 物理 学 的 重大 成 就 之 一 一 一 晶体 管 和 类 规模 集成 电 
路 的 出 现 ， 才 有 今天 电子 计算 机 的 飞 婚 发 展 ， 使 世界 进入 信息 时 
” 代 ， 计 算 机 正在 给 科学 技术 、 生 产 劳动 ， 乃 至 估 们 的 日 常生 活 带 
来 巨大 变革 . 固体 物理 学 也 不 例外 ， 计 算 机 不 仅 为 实验 固体 物理 
等 家 提供 了 先进 的 实验 设备 ， 帮 助理 论 固体 物理 学 家 作 公 式 推导 
和 数值 计算 ， 最 重要 的 是 它 以 一 种 独特 的 研究 方式 ， 形 成 计算 固 
体 物 理学 这 一 新 的 学 科 分 支 . 计算 面体 物理 学 是 以 计算 机 为 工具 ， 
苑 分 利用 计算 数学 中 的 数值 计算 、 逻 辑 运 算 和 符号 运算 (Z. HE 
叶 就 是 其 中 的 一 种 ) 方法 ， 研 究 和 解决 固体 物理 问题 的 一 门 分 支 
学 科 . 由 于 计算 机 具有 大 的 存 贮 量 . 高 的 运算 速度 和 计算 精度 , 并 
且 在 并 算 数学 方面 也 已 经 发 展 了 整套 的 处 理 各 种 数学 问题 的 数值 
计算 、 逆 辑 运 算 和 符号 运算 的 计算 方法 ， 这 就 为 使 用 计算 机 研究 
和 钥 决 尊 体 物理 问题 提供 了 很 好 的 条 件 . 计算 固体 物理 学 研究 问 
题 的 方式 是 ，(1) 根据 具体 问题 建立 物理 和 模型，(2) 将 物理 学 的 
基本 原理 和 理论 用 于 该 模型 , 把 物理 问题 转化 为 数学 问题 ; (3) 选 
择 怡 当 的 计算 方法 ; (4) 建立 相应 的 计算 程序 ; (5) 运行 程序 ,对 
所 得 结果 进行 分 析 . 

固体 是 具有 很 大 日 由 上 度 的 多 粒子 体系 ， 描 写 其 行为 往往 轨 用 
到 一 些 复 淋 的 非 线 性 方程 ， 能 够 用 传统 的 数学 分 析 方 法 求解 析 解 
或 近似 解析 解 的 问题 很 少 ， 而 借助 计算 机 则 能 足够 精确 地 解决 一 
些 很 复杂 的 问题 、 可 以 举 出 许多 令 人 振奋 的 例子 例如， 用 从 头 
计算 的 分 于 动力 学 模拟 方法 (ab initio MD) 不 借助 任何 经 验 参 数 
就 可 计算 从 高 温 液 态 组 冷 下 来 得 到 的 平衡 晶 态 的 潭 子 构 型 ， 或 是 
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ARR? GEK) 下 来 得 到 的 非 平衡 态 〈 如 非 厚 态 ) 的 原子 构 
型 ， 而 计算 效 聚 访 物 质 的 电子 结构 〈 能 带 论 ) 则 一 直 是 计算 后 体 
物理 学 的 得 意 之 作 . 时 至 今日 ， 计 算 因 体 物 理学 正在 向 复杂 体系 
的 计算 特殊 物理 性 质 的 计算 ， 以 及 复杂 物理 过 程 的 描述 ， 即 从 
广度 和 深度 两 方面 同时 发 展 ， 

实验 历来 是 测定 有 谢 聚 态 物质 的 结构 和 人 性质 的 直接 手段 ， 而 为 
了 研究 复杂 体系 各 深层 次 的 问题 ， 必 须 将 精确 的 实验 测量 和 复杂 
的 计算 机 数据 处 理 结合 起 来 . МШ, MX 射线 衍射 方法 浏 定 晶体 
结构 是 实验 固体 物理 学 的 突出 成 就 之 一 ， 由 于 晶体 中 原子 呈 周 期 
性 排列 ， 所 测 得 的 衍射 花样 是 一 些 分 立 的 衍射 班 点 或 谱 线 、 其 实 
验 结果 的 数据 处 理 较 简 单 . 而 为 了 注定 非 唱 态 和 液态 这 类 只 有 得 
程序 、 无 长 程序 的 无 序 物 质 的 结 移 ， 可 采用 径 向 分 布 本 数 
(RDF) 和 广 延 X 射线 精细 结构 ‘EXAFS) 的 实验 方法 ， 所 测 得 
的 衍射 语 是 连续 谱 ， 它 包含 了 来 自 各 个 原子 的 衍射 信息 ， 而 这 些 
床 子 的 排列 只 其 有 短程 序 ， 无 长 程序 ， 必 须 借 助 计算 机 对 实验 数 
据 进行 复杂 的 数学 钼 理 才 能 取出 其 中 和 隐 合 的 结果 . 

计算 固体 物理 学 除了 作为 理论 固体 物理 学 和 实验 固体 物理 学 
的 延伸 以 解决 此 两 者 为 所 不 及 的 一 些 间 题 之 外 ， 它 还 可 以 进行 计 
ЖАЛҒАНЫ. 计 弄 机 是 一 种 能 进行 各 种 数学 运算 的 实验 设备 , 只 
要 把 物理 过 程 转化 为 数学 过 程 ， 就 可 以 在 计算 机 上 模拟 该 物理 过 
程 、 通 过 以 数学 过 程 代 蔡 物理 过 程 ， 可 入 把 那些 在 大 范围 中 发 生 
的 宏观 这 程 或 是 用 现 有 仪器 难以 看 到 的 微观 过 程 “ 计 算 ” 出 来 , 并 
БП ТЕВЕ Е: 可 以 把 瞬息 万 变 或 变化 极 缓慢 的 物理 过 程 让 计算 
机 上 按 任 意 给 定 的 速度 进行 ， 便 于 分 析 ; 也 可 以 按 需 要 改变 禁 些 
条 件 ， 固 定 其 余 条 件 ， 以 分 别 考察 各 因素 对 此 过 程 的 影响 .在 计 
算 机 上 上 观察 外 应 力 、 障 碍 物 密度 和 条 扎 强度 等 因素 对 位 错 穿越 无 
规 障碍 物 阵列 运动 的 影响 就 是 一 语 . 

国体 物理 学 是 物理 党 的 最 大 分 支 之 一 ， 涉 及 的 范围 很 三， 出 
于 衡 幅 有 限 ， 本 书 选 择 固 体 物 理学 的 几 个 重要 方面 ， 如 镶 格 对 称 
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有 代表 性 的 问题 和 人手 ， 建 立 物 理 模型 ， 根 据 基本 原理 和 有 关 理 论 
转化 为 数学 公式 ， 选 用 计算 方法 ， 编 制 计 算 程 序 ， 结 合 实例 进行 
计算 ， 将 计算 结果 在 屏幕 上 作 图 〈 对 于 少数 结果 简单 的 问题 只 给 
出 数值 结果 )， 然 后 进行 分 析 讨 论 ， 按照 这 样 的 方式 组 织 内 容 ， 也 
就 是 说 ， 将 用 计算 机 研究 和 解决 固体 物理 问题 的 有 关 理 论 、 物 理 
模型 、 计 算 公 式 、 方 法 、 程 序 和 实例 结合 在 一 起 ， 以 求 对 其 有 比 
较 全 面 、 深 入 的 了 解 ， 在 内 容 选 取 时 ， 还 兼顾 了 用 计算 机 进行 理 
论 计算 ,实验 数据 处 理 和 物理 过 程 的 模拟 几 个 方面 . 

考虑 到 绝 大 多 数 固体 物理 工作 者 关心 的 是 如 何 用 计算 机 研究 
和 解决 固体 物理 向 题 ， 获 得 所 需 结果 ， 故 本 书 不 对 程序 设计 技巧 
作 专 门 介绍 ， 书 上 的 程序 说 明 足 以 帮助 读者 清晰 地 了 解 本 书 所 附 
的 源 程 序 ，、 本 书 除 在 附录 中 对 求 本 征 值 、 本 征 矢 问题 和 蒙特 卡 罗 
方法 作 了 话 述 外 ,对 于 其 它 计 算 方 法 皆 只 在 子 程序 说 明 中 略 述 ,如 
俯 有 更 浆 人 的 了 解 ， 可 参阅 一 般 的 计算 数学 方面 的 书籍 ， 至 于 用 
计算 机 处 理 一 般 实验 数据 的 方法 ,它们 不 是 固体 物理 学 特有 的 ,在 
许多 书 中 都 可 找到 ， 因 而 不 作为 本 书 内 容 ， 值 得 重视 的 是 ， 由 于 
固体 物理 问题 复杂 ， 计 算 绪 果 很 难 用 几 个 数值 ， 或 是 用 较 简 单 的 
解析 式 表 达 ， 为 了 便于 分 析 、 讨 论 ， 通 常 是 将 结果 以 曲线 图 、 等 
便 线 图 或 得 黎 度 图 表示 ， 而 用 计算 机 模拟 物理 过 程 的 进展 情况 则 
以 动态 图 形 显示 最 为 合适 ， 这 些 计 算 机 作 图 方法 在 有 关 计算 物理 
的 书 矫 中 很 少见 到 ， 故 我们 编制 了 一 套 简 单 实用 的 用 于 计算 机 绘 
制 曲线 图 、 等 值 线 国 、 玻 密度 图 和 动态 图 形 显示 的 程序 ， 作 为 本 
书 的 最 后 一 章 、 这些 必 图 方法 是 普 适 的 ， 它 们 不 仅 适用 于 固体 物 
理 同 题 的 研 操 ， 也 同样 适用 于 其 他 学 科 的 工作 .计算 网 体 物理 工 
作者 党 第 使 用 一 些 现成 的 大 型 软件 包 ( 如 各 种 计算 固体 和 分 子 的 
电子 结 移 和 物理 性 质 的 程序 包 等 ) ,每 个 程序 包 由 几 干 至 几 万 条 语 
何 组 成 ， 其 程序 说 明 足 以 单独 成 书 ， 故 本 书 未 予 列 入 ， 但 是 ， 任 
何 一 个 复杂 体系 都 是 由 许多 简单 部 分 组 成 的 ， 本 书 为 了 解 和 使 用 
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那些 大 型 程序 包 打 下 了 好 的 基础 ， 本 书 除 有 三 个 作 图 程序 是 用 
BASIC 语言 编写 的 以 外 ， 其 它 程 序 毕 是 用 FORTRAN 77 语言 编 
写 的 ， 

除了 很 少 几 个 程序 是 参考 前 人 已 有 程序 改进 的 以 外 ， 书 中 大 
部 分 程序 都 是 我 们 在 从 事 有 关 教 学 和 科研 工作 中 编制 的 ， 为 了 节 
减 篇 幅 ， 删 去 了 程序 内 与 书 中 内 容 无 关 的 其 它 功 能 、 书 上 所 附 源 
程序 皆 用 计算 机 传输 排版 ， 因 而 杜绝 了 印 别 错 误 , 

本 书 涉及 的 研究 课题 ， 得 到 国家 自然 科学 基金 委员 会 数理 学 
部 的 资助 . 

缩写 准 唱 部 分 时 ， 得 到 王仁 弄 教授 、 邹 化 民 副 教授 的 很 大 大 
助 ， 邹 化 民 副 教授 还 修改 并 审阅 了 这 一 部 分 内 容 : 了 丁 样 华 副教授 
153. 18193. 2 内 容 提 出 了 很 宝贵 的 修改 意见 ， 并 将 他 上 自己 教 
学 中 积累 的 关于 这 部 分 内 容 的 体会 ， 无 保留 地 提供 给 我 们 ; ЕЛ 
隆 、 李 力 、 赵 卫 、 周 群 晖 、 鲁 弘文 和 何 浅 诺 君 参 加 了 书 中 某 些 程 
序 的 调试 工作 ， 在 本 书 出 在 这 程 中 ， 得 到 武汉 大 学 出 顷 社 社 长 牛 
太 臣 教授 和 理科 编辑 室 主 任 史 新 奎 副 教 投 的 大 刁 支 持 和 热情 名 
BH. ТЕ А ТЕ 2 D 55 ШІ. 

ETERRA., Ә-жЕЛЕҒРғРЫН. ЖЕНЕ 
ДАК, БАЗЕНЕ. 
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对 于 晶体 ,不 论 其 颗粒 的 大 小 如 何 , 其 内 部 原子 或 分 子 都 是 按 
周期 性 规律 重复 排列 的 ,此 即 晶 体 的 共同 结构 特征 ,本 童 从 名 格 的 
半期 性 出 发 ,描述 晶体 结构 的 一 些 基 本 见 何 性 质 , 并 重点 讨论 点 群 
对 称 性 ,最 后 研究 晶体 中 最 篆 见 的 缺陷 一 一 位 错 的 形成 .运动 和 钉 
扎 过 程 . 


91.1 ЖЖ 


1.1.1 器 体 结构 的 几何 描述 


一 \ 原 胞 和 品 胞 


在 晶体 府 部 ,原子 或 分 子 在 三 维 空 间作 周期 性 的 重复 排列 ,每 
个 重复 单元 的 化 学 组 成 相同 ,空间 取向 相同 . 若 忽略 晶体 的 表面 效 
应 ,各 个 重复 单元 的 周围 环境 也 相同 . 这 些 重复 单元 可 以 是 单个 原 
子 或 分 子 , 也 可 以 是 离子 贰 ,或 多 个 分 子 , 称 为 晶体 的 基 元 . 在 每 个 
枯 元 的 相同 位 置 上 抽出 的 一 个 电 同 点 , 称 之 为 结 点 * 每 个 莽 元 用 一 
个 结 点 代表 . 结 点 在 空间 有 规则 地 、 周 期 性 地 无 限 分 布 的 总 体 称 为 
空间 点 阵 ( 又 称 郧 格 ). 
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一 个 品格 最 小 的 周期 单元 (在 三 维 情形 为 平行 六 面体 ), 称 为 
Ék MS 08 J 35 kh Е, ЕЕЕ SK ЖЕН ЕН СТН 39 Y Ж dt Їй 
ЖАН, Н а, ,а,0, А. ТОННА — ТЕП 
结 点 均 处 在 顶 角 上 , 为 了 反映 品格 的 对 称 狂 ,需要 选取 较 大 的 周期 
їз. НЕН СЕНЫ) НЕН ts ta [K tin] А И ЕНУ Ж 
小 周期 单元 . 沿 唱 胞 的 过 原点 不 共 面 的 相 邻 三 个 楼 所 作 的 三 个 天 
Ж. Уни ДЫН Ж, a,b,c 表示 . 一 个 曲 胞 中 可 含有 一 个 或 多 
个 结 点 , 邵 结 点 位 置 不 仅 处 在 顶 角 , 亦 可 处 在 体 心 (了 )、 面 心 (Ff) 或 
底 心 (C). 由 于 最 了 胞 应 反映 品 体 的 对 称 和 性 ,所 以 ,在 一 些 情况 下 品 
胞 就 是 初 基 唱和 胞 (PP) ER- -EER РАМЕ. 在 固体 物理 学 中 ， 
通常 只 选用 仅 反 映 唱 格 周期 性 的 初 楚 唱 胞 ,所 以 人 们 经 党 称 初 基 
НІН МАНАДАН И ЛИШ. | 

唱 胞 的 大 小 和 形状 用 晶 胞 参数 , 即 量 胞 的 过 原点 的 三 个 不 共 
面 的 边 的 长 度 a,5b,c 和 和 三 个 边 之 间 的 夹 角 a,8,7 来 表示 ,根据 量 体 
ЖЕНЕ. 低 的 不 同 , 可 将 晶体 分 为 七 类 , КЪК, 见 图 
1-1. 每 一 种 蝇 系 ,有 其 基本 的 对 称 特征 (晶体 的 对 称 狂 在 81.214 
w). 现 列 于 表 1-1. 

表 1-1 七 大 品系 所 必 各 的 对 称 性 及 其 品 胞 特征 


| 
, где | 
#9 hae | 
š: =£ 


81-1 十 四 种 布 拉 非 格子 
(1) 简单 三 斜 (2) ФЕ (3) 底 心 单 斜 (4) 篇 单 正 交 
(5) 底 心 正 交 (6) 体 心 正 交 (7) 面 心 正 交 (8) = 
(9) ЖАЙЧУ 《10) 体 心 四 方 (11) 六 角 (12) 简单 立方 
(13) 体 心 立方 (14) 面 心 立方 


序 中 仅 讨 论 晶 胞 参数 的 计算 . 


4 


图 1-1 十 四 种 布 拉 菲 格子 
(1) 简单 三 鲜 (2) E Ж (3) ЖЕЕ £| (4) 简单 正 交 
(5) 底 心 正 交 (6) GEZ (7) IU 1E 2 (8) = #9 
(9) 简单 四 方 (10) 体 心 四 方 (11) Z< fB (12) 简单 立方 
(13) 000207 014) 面 心 立方 


序 中 仅 讨 论 曲 胞 参数 的 计算 . 
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(а) 体 心 立方 (6> ШМ. 
图 1-2 图 体 物 理学 中 原 胞 选取 示例 图 


二 ,曲面 措 数 

晶体 的 三 维 空间 点 阵 可 以 看 成 是 由 一 族 相互 平行 而 且 间 路 相 
等 的 平面 点 阵 组 成 . 在 晶体 学 中 用 最 面 指 数 (或 Miller 指数 ) 来 表 
示 各 取向 不 周 的 曲面 族 

没有 一 平面 点 阵 , 它 在 三 个 品 轴 方 向 上 的 截 距 分 别 是 газ, 
tc. ШІН 1-3 РК л. ЖД a,b,c 为 单位 长 度 , 则 zs 分 别称 为 该 点 隆 
面 在 三 个 唱 轴 上 的 截 距 ,其 倒数 一 ,一 ОНЯ. 

根据 晶体 学 中 有 理 指数 定理 , 倒 易 截 数 之 比 可 以 化 成 一 组 互 


质 的 整数 之 比 ; 
к Lu k y Т, (1 — 3) 
r 5 上 


将 这 一 组 互 质 的 整数 (4&k1) 用 来 表示 该 晶 面 族 的 指数 , 称 为 密 次 
(Miller) 指数 ， 


=. sa Қ 


下 面 简单 介绍 一 个 重要 的 点 阵 扩 展 的 概念 一 一 Ha КА EF. ЖІ 
| 5 


用 它 可 简 清 .系统 地 表 
示 晶 体 点 阵 的 全 部 点 阵 
THR CEECEE 
体 学 .晶体 衍射 和 固体 
物理 问题 的 极其 重要 的 
数学 工具 

倒 易 点 阵 的 定义 ， 
标志 晶体 点 阵 中 一 族 平 
面 特性 的 ,是 它 的 法 线 
取向 和 面 间距 . 这 些 特 1-3 ”曲面 族 的 指数 表示 方法 
性 可 以 用 一 个 位 矢 表 
示 , 这 个 位 矢 的 方向 代表 这 族 平面 的 法 线 方向 ,位 矢 的 模 比 例 于 这 
族 面 的 面 间距 4 的 倒数 ,或 倒数 的 整数 倍 , 这 位 矢 称 为 点 阵 平面 族 
的 倒 易 矢 ! 倒 易 矢 的 端点 称 为 点 阵 平 面 族 的 倒 易 点 . 当 原点 一 定 
时 ,这 个 倒 易 点 就 完全 表示 了 该 平面 族 的 特性 . 图 1-4 是 这 种 表示 
方法 的 例子 , 自 原点 O 引 晶 面 族 4BC 的 法 线 ON ,在 法 线 上 截取 一 
B ОР = p, 使 p 5,4 是 平面 族 АВС 的 面 间距 让 是 一 个 常数 ， 


Ж Ж ТЕЗ ña rH k = 1 在 固体 物理 学 中 令 & 一 2. Е X OP E 
ШК АВС HARR P 点 则 为 倒 易 点 . 

КЖ АЛЫНА = 4-8) 2 355 ЕНІН ЕЕЕ Ж 
建立 倒 易 点 阵 , 在 图 1-5 中 , 设 a,b,c 为 晶体 点 阵 的 基 矢 ,坐标 面 
beca ab ЖҰ E: Fa IK A ЕН (100, (010), (001) 平面 旗 中 的 一 个 
面 , 这 些 平面 族 的 面 间距 各 为 diw daa dha, fE OP L ab H, E OP 


上 截取 OP = #9 C 一 元 -同样 ,对 te 面 得 出 e" 一 J: 


对 ca RHE b = J 这 样 作出 的 三 个 矢量 a' ,5* ,;e" 分 别 表示 
了 (100),(0107,(001) FHERR. AREIA HB SENER. 


ER a’, b" c" 的 端点 就 是 (100),(010),(001) 面 族 的 倒 易 点 . 把 
6 


图 1-4 ， 倒 易 矢 和 倒 易 点 “图 1-5 僵 易 点 阵 基 矢 的 选取 
这 些 点 以 ae" ,b' ,c" 为 周期 ,各 河 @ b .с” 方向 平移 ,就 得 到 一 个 
新 的 点 阵 , 这 个 新 点 阵 称 为 原来 的 晶体 点 阵 的 倒 易 点 阵 , 为 了 区 


别 ,把 原来 的 晶体 点 阵 称 为 正 总 阵 ， 


КЕЗЕ ,c* REAR а,Ь,с 的 关系 可 如 下 求 出 . 正 基 
а,Ь,с 所 构成 的 平行 六 面体 就 是 正点 阵 的 晶 胞 ,这 晶 胞 的 底面 
为 6 面 ,其 高 为 ab 面 族 的 面 间谍 du, 所 以 正点 阵 晶 胞 体积 O = 


doo (absin7Y) = dola X d|, Am 

4.1 _jexbj 
E С оол E 12 

LARR c MRE aX bra A 

(a X b) 


C 


同 理 b' =y 


а" = 


UJ a,b,c Я ЕСІ 一 5) 式 两 边 , 刚 有 


(1-- 4) 


(1 — 5) 


《1 一 5) 或 (1 一 6) 式 即 为 晶体 几何 学 中 悄 易 点 阵 的 定义 . 
在 苇 体 物理 学 中 , 倒 易 点 阵 的 定义 与 基 和 失 的 求法 ,与 品 体 几 后 
ДА Әдібай, H а,,а,,а, RREÆR, H b, 


x а,) 
b. = ехе 
> 
by = 2r 4.5 @) (1—17) 
хй 
Б; = әл 41 Х а.) 
和 а; . b; == 2лд,, (2,3 = 1,2,3) (1 — 8) 


(1 — 7) At R6 ОН ШИЯ RER 0 = а, ° (а, X a). 

ТЕ Ta Я sa BJ SE Ж, ТЕ l k, g yz Ж 3 BJ B| Я РЕН АО 
(hk D 的 阵 点 的 位 矢 就 是 指数 为 (4&) 的 正点 阵 平面 的 倒 易 矢 ， 
ОД hk D 点 的 位 矢 为 

ha" + kb* + іс" = К (1 — 9) 


Kul = (1-- 10) 


ды 


有 了 倒 易 点 阵 的 概念 后 ,就 可 以 将 X АИЛЕ ЕЛ В, 

e (ç — So) = АСК HRR sos AMAA НИНЕ Х 射线 的 单位 

向 量 ) 变 为 倒 易 空间 的 衍射 方程 上 一 = nK u kok 分 别 是 X 射 

А В RA RANER). mal A tititi Brage) 杀 件 ,将 衍 
射 问题 变 为 选择 反射 问题 . 布拉格 条 件 为 ， 

2d sin0 = xÀ (2 — 11) 

АНТ АЕ a О БАЙК Bragg Aon Б.А DX 射线 波长 。 


1.1.2 晶体 结构 参数 的 计算 


通过 品 体 结构 参数 ,可 以 了 解 蝇 体 结构 中 原子 河 相互 作用 ,化 
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学 键 性 质 , 分 子 的 结构 ,形状 ,堆积 方式 ,离子 的 配 位 情况 以 及 分 子 
问 的 作用 力 等 等 ,从 而 把 结构 和 性 能 密切 联系 起 来 ,下面 推 导 从 品 
胞 参数 计算 其 它 晶体 结构 参数 的 公式 . 


一 、 计 算 晶 胞 体积 \ 倒 格子 唱 胞 参数 和 倒 格 子 喇 胞 体积 


1. ни {ЖАҢ 

ЖӘНЕН ЕНТ KIE а.б. KHEM a BY 可 以 计算 呢 
胞 体积 ; | 

О = a • (a X b) == abc[1 + 2совасозЙсозУ — costa — соз: 8 

— сов17 ]1⁄2 《1 — 12) 

2. {#| 5 ин КЇ 2:0 

倒 易 点 阵 参 数 e b"c" a. BT 与 正点 阵 参 数 a,b,c a, 
В.У 之 间 的 关系 ,可 由 (1 一 5) ЖЯ. 


а“ = 1 рсвіпа 

б” = Lasah (1 — 13} 
aQ 

Е = absinY 


对 于 两 倒 易 茜 矢 间 的 夹 角 ,例如 7' , 它 的 余弦 等 于 
шз С В 90те) и) 
应 用 矢量 运算 公式 (Bb хс) ° (c X a) = (b * c)(c * a) — (bea), 
并 应 用 (1 一 13) 式 , 可 以 算出 
абс (совасов) - соз?) _ cosacos — соз? 
абсізіпавіп д singsin f 
(I — 15а) 


соз?” = 


网 理 可 以 得 到 


cos Acos — cosa 


сіп біп” 
(1 — 156) 
p = соѕУсоѕа 一 cos В 
COSR = па + siny 
3. 倒 格子 晶 胞 体积 


倒 格子 品 胸 体积 与 正 格子 晶 胞 体积 互 为 个 数 ,应 用 (1 一 12) 
式 ,得 到 


] 


0° = a" + (b° Хе") = ñ (1 — 16) 


1 
 Nabc 
Н N = [1 — (cos*a + соз? 十 соз*7) + 2cosacosBcosy ]1⁄2 

Z. irate ЗИ ñu Bl pq huk КАЖ B 


БІЛІС ЗАУРЕ Ж D ПНЕ n 个 烙 点 ,每 个 格 
氮 和 内 了 包含 的 分 子 量 (或 原子 量 总 和 ) 为 内, 每 克 分 子 中 包含 的 分 子 
数目 为 阿 伏 加 德 罗 常数 No( 换 种 说 法 是 取 原 子 质量 单位 为 1, 66 
х 1074 w) WA | 


М : РЕ 
п =M Х1.66 X 19 (1—17) 


反之 mC Més ВЕН ЕРТЕ ЖАНУ ЛАҒАН ЫТ ПЕД РЧ 
包含 的 格 点 数目 . 


三 .计算 晶 面 间距 


品 体 点 阵 的 一 个 晶 面 族 中 ,任何 两 个 相 邻 的 点 阵 平面 之 间距 
ВЕНА, Ш du 表示 之 , 它 可 由 (1 一 10) 式 算 得 : 
dyu = |Кы| |а + kb" + "|"? 
= (ha? + kD’ + Ze"? + 2hha"b"cosy' 十 
2{Ас* а^ соз” + 240" с‘ сова")! (1 — 18) 


.计算 搞 射 角 (Bragg #) 


将 (1 一 11) 式 改写 为 
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2 Csing = ` (1 — 19) 


则 有 к. 2d,., ,sin0 = А (1 — 20) 
dyrr 是 平面 族 (h'&'7') 的 面 间距 h ЫР КУАНЕН Е У ЕН 
ЖАМ 有 如 下 关系 | 

h = па, K = nk, 1 = ni (] — 21) 


注意 ,最 面 指数 是 品 面 ( 格 点 所 在 的 平面) 的 而 指数 ,而 衍射 指数 
是 满足 Bragg 方程 (1 一 20) 式 的 平面 的 面 指数 ,这 些 (姑姑 7 平面 
不 一 定 有 格 点 通过 , 即 可 能 是 虚 平面 ， 

由 (1 一 9),(1 一 10) 和 (1 一 21) f, HHE T X 射线 波长 和 以 
及 曲面 指数 hki, An U TT НЕНІ Я 0. 


五 .计算 原子 间距 离 . 键 长 和 键 角 


在 大 部 分 晶体 中 ,原子 位 置 与 结 点 位 置 不 等 价 ,为 了 考虑 对 称 
Е, 上 唱 胞 中 结 点 位 置 也 不 一 定 选 在 项 角 上 . 因此 ,原子 在 唱 胞 中 的 
位 置 矢量 的 各 分 量 坐 标 , 是 以 分 数 形式 表示 的 . 例如 在 图 1-6 中 ， 
设 OO 为 唱 胞 原点 ,P 点 为 晶 胞 中 原子 乙 中 心 所 在 位 置 , 则 问 量 ОР 
№: 

ОР = ra + yb + zc (i — 22) 
式 中 的 z,y, z 不 一 定 为 整数 ,可 为 分 数 ， 

HE X 射线 衍射 测定 了 晶 胞 中 原子 的 坐标 х,у, 后 ,就 可 计 
算 头 子 之 间距 离 ,成 键 原 子 问 的 键 长 和 和 键 角 ,方法 如 下 : 

以 晶 胞 的 三 个 基 矢 a,b,c ТЕЛЕН HR абас 为 三 个 
И 的 长 度 单位 ,构成 晶体 坐标 系 , 在 这 个 坐标 系 中 , 品 胞 中 某 两 个 
Е ГАЖ В 的 坐标 分 别 为 Хл»Ул»Хд Fh rp Ун». 联系 这 两 个 原 于 
闻 的 向 量 Rs 可 表示 为 

Raa = (хв 一 2,24 + (ys — yab + (zs 一 хл2с 

= Ата + Ayb + Aze (1 一 23) 
向 量 Аль 的 长 度 即 为 这 两 个 原子 间 的 距离 - 
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对 于 三 斜 晶 系 , 及 可 按 下 列 公式 计算 : 
R = (R - ЕУ? = [(4Az)jie: + (Ayy + (Ау? + 
2АхАуабсов? + 2AzAraccosB + 2AyAzbccosa |? 
(1 — 24) 
如 采 这 两 个 原子 是 成 键 的 ,R 就 是 这 两 个 成 键 原子 的 键 长 , 其 
它 晶 系 的 计算 公式 则 可 看 成 是 三 斜 品系 的 特例 
原子 4 和 召 之 则 的 键 长 为 Ria MT B 和 C 之 间 的 键 长 为 
КЕС Ж А Z HEERA Ксл, w 1-7 ЖЖ ‚ДЇ Кё 一 Raa + 
Ric 一 2RAs * Кассов@,ф 为 原子 А вес 之 间 的 键 角 ,有 
Ris T Rac Е Rea 


2R., + Ку (1 一 25) 


cosg == 


图 1-6 Ж) 1-7 
an A P ҒА 89 三 个 原子 ABC 的 键 长 与 链 角 
式 中 的 Rasi Кс, Rea 可 由 这 三 个 原子 的 坐标 分 量 道 过 (1-24) ХУ 
Я. 


ЕЕ ЫЕ РЕ ДК УИ В 
表示 | 


Б-ТЕ ñi i rh bu s tn r E ЖЕП на ЖЕ а, ‚е HA [о] ЖП ВЕ 
作为 坐标 轴 的 方向 和 单位 长 度 的 , 除 立 方面 系 外 , 它 与 直角 坐标 系 
的 并 不 相同 . 但 在 贞 体 电子 结构 计算 等 工作 中 ,往往 需要 提供 名 原 
子 的 直角 坐标 分 量 , 故 要 进行 坐标 变换 ， 
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以 三 斜 晶 系 为 例 , 如 图 1-8 所 示 , 和 ,了 ,2Z 为 直角 坐标 系 的 三 个 
$ia, b,c аА, ERASE O X. бау X Jy 5,0 
XY FEE W ZASA ЕЕ с" BJ r p| — SX. ж Z У c [р Ж 
角 为 9, 则 由 (1-5) 和 (1-6) RA: 


гес“ = с * c * cosf) = E; г“ = 21 (1-- 26) 
4-22-24 _ 
Ж cosh = сес“ абсвіп? (1 — 21) 


图 1-8 从 基 天 坐标 转换 为 直角 举 标 
设 某 原子 在 蜡 胞 中 党 标 分 莉 为 zx,y*z, 通 过 下 述 无 系 式 号 可 
以 转换 成 直角 坐标 分 量 Х.Ү,2; 
X =ar + bcosY * y + ссо5{ * z 
Y 一 PstnyY • y + гссоврвіп 


EE hp A зс сова 一 совЙсов7 (] — 28) 


sinr 
Z = хссоѕб = 7 Ау 
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或 用 和 矩阵 形式 表示 为 


а kosy ссоѕ 8 


Х = 
у | О pslny с(соза 一 ... > (1 — 29) 
£ ш 2 absiny 


程序 1-1 郧 体 结构 参数 的 计算 


— ЕВЕ: CELL 


二 ,功能 


输入 品 胞 参数 和 XX 射线 波长 ,可 计算 晶 胞 体积 , 倒 格 子 员 胞 参 
М.Е ЕНЕ. HHA , 键 长 和 键 角 . 还 可 将 党 地 位 置 坐 
标 从 晶体 坐标 系 转 换 到 直角 坐标 系 表示 . 


三 ,原理 


І. АЛАШ ЛЕК а,б с 和 三 边 中 每 两 边 的 夹 角 a, 
8,7, 根 据 (1 一 12) АТЫН АНЯ О. 再 利用 (1 — 13) 和 (1 一 
15) 式 , 可 算得 倒 格 子 基 舌 a" ,b" c. ARE a bt ,c" Уйа, 
ptr" ,继而 用 (1 一 16) 式 , 算 得 倒 格子 昌 胞 体积 O°. 

2. 输入 每 个 晶 胞 中 包含 的 格 点 数目 m 以 及 每 个 格 点 内 包含 由 
原子 的 原子 量 总 和 邓 ( 分 子 量 ) ,根据 (1 一 17) ҚАПИ ЕЕ 
FPF DD; 反 过 来 ,如 输入 DD 种 及 ,就 可 计算 最 跑 内 的 格 点 数目 . 

з. 输入 虽 面 指数 ji2 ,利用 (1 一 18) з, SË RPH Ph BI W: hkl) 
的 面 间距 д. 

4. 输入 两 个 原子 和 和 BARKER C yon Ñ zao yaza 
用 {1 一 24) 式 , 可 算得 此 两 原子 的 间距 Rae. 如 果 此 两 原子 成 键 ， 
Ras 816. (С 一 25) 式 , 输 入 三 个 原子 4,BC 的 国体 堂 标 , 印 
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可 算出 AB 和 BC ARZANA y. kE RA. 

5. 输入 某 原 子 的 晶体 坐标 , 即 可 按 (1 28) 式 将 其 坐标 转换 
成 直角 坐标 . 

6. 根据 布拉格 方程 (1 一 20) 式 , 对 于 给 定 的 外 长 4, 输 入 一 组 
衍射 指数 大 六 六 ,就 可 得 到 相应 的 掠 射 刹 А 


ЖЕНЕ 1-1 


五 ,变量 说 明 


x 为 输入 变量 ; * + 计算 某 些 量 时 为 输入 变量 ; 十 为 输出 变 

Ж. 

БЕСТЕН SE, ИЯ 1 fB Y (уез) GN” (no). 

АС" ЖАВО»)":1--1,2,3. MASZ: ACI 相应 于 边 长 a,b,c《 单 
位 ;入 );B(DD УРУЯ а, УСУ, Ж). 

S(D ЖІ СА, = 1,2,3. 561) 是 біла,віпЙ, пу; С(Т) 是 cosa, 
cos 月 ,cosy， 

OMEGA+ 和 OMEGAP* ;分 别 是 唱 胞 体积 OO fy; A °) ЖИ 
Ж A (单位: А D 

AP(D 和 ВР()-,1 = 1,2,3. 倒 格子 晶 胞 参数 :AP МОЛЕ 
a" b" c" CE À DBP Е а", 8°," (单位: 
BE). 

CP(D ,TI 一 1,2,3, 分别 对 应 于 cosa" cosp" ,cosy*. 

AM" : 唱 胸 内 每 格 点 包含 的 原 于 的 原子 量 总 和 ,或 称 分子 基 ( 单 
м. / Ж». 

МРТ" "АЧАА Н. 

DC"* КВС НУ: у / ЕЖ). 

НК". ЛН) НАПЕ СЛЕ) ЧЕКА. 

HDI = 1,2,3. 8, H(1) = АСЕ А'),Н(2) = ЁС E ,Н(3) 
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TIF 


7 


F 


TI 


* 


а", 
L... a a a 


计算 并 输出 


П 


А. du НАЯ Е 


$m СН НЕ 


流程 图 1 一 1 


ТА 


DHKL : gu НІН 7 С (Z; AY. 

ALAMDA : ИЕЛЕ ХАК АСАУ; А). 

ТНЕТА”; УТЕНА НЕНІҢ ӨСУ. ЯҒ). 

ST ,sin й. 

TD, UD УА» :原子 的 晶体 坐标 :zyozi 工 一 1,2,3 分 别 
对 应 于 А,В,С AF. 

DX(D.DY(D .DZ(D ;DX(1) = z; — zta DY(2) = yp — ya, 
DZ(z) = zn — Z4. 

R- 和 PSI” ;分 别 是 键 长 КАСУ: А ЯЕ ФОНУ: В). 

CX ,CY” 和 CZ' ;坐标 转换 前 输入 的 原子 的 品 体 坐标 ;x,y 和 z. 
(单位 :A) 

X ,Y ,2 МЕТИЛ Ep ДУ. А). 


入 .于 程序 说 明 


ОК2(О,Н) 

БИН [В dw ТІНІНЕН Ras 的 子 程序 На), = 1, 
2.3 臣 人 衡 时 指数 AL 对 于 计算 cx) RIAT A Sia T B Bl da K s kn 
HI reyse 二 个 方 呵 的 分 量 之 差 4《 对 于 计算 К„„). Q 在 输出 参量 diu 
ау Rån. 


七 .计算 实例 
сж нЕ Н, КАЮ, Т ДРК 
ТЯ: 
а h с а В М М п 
10.54 5.36 11. 13 890 106 90 258.3 2 


FE chihu АНУ TEREA / 摩尔 . 

用 作 衍 射 分 析 的 X 射线 波长 为 1. 5405 À . 要 来 计算 此 晶体 的 品 胞 

НАЯ на а Е, ШЕТЕН, Г.Ш 0100), (010). 
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(001).(110). (101) 和 (123) 的 面 间 距 和 掠 射 角 , 又 已 知 此 原 胞 中 
相 邻 三 个 原子 А,В # C 的 上 品 体 坐 标 参数 为 


т y > 
А 0. 233 0, 514 0. 376 
В 0. 35 0. 571 0. 351 
С O. 171 0. 382 0. 442 
要 求 计 算 其 键 长 . 键 角 ,并 将 此 三 个 原子 的 坐标 参数 用 直角 坐标 表 
示 出 来. 
”本 程序 采用 人 机 对 话 的 形式 , 按 屏幕 上 的 提示 键入 输入 数据 ， 


或 按 异 幕 上 的 提 何 回答 “Y” 或 “N”, 就 可 完成 所 要 求 的 计算 . 程序 
运行 后 ,计算 结果 除 在 屏幕 上 显示 外 ,还 生成 一 个 如 OUT 的 文件 


贮存 结果 备查 ， 
运行 指令 :CELL ОСТ 
А.Я Е: 
PROGRAM CELL 
REAL =8 Q 


INTEGER HKL 
DIMENSION B(3),S(62,BP(3).A(6,C(6y.T(3), 
f U3). V(3) ,H(3),DXC3) 
COMMON AP(3y,CP 3) 
CHARACTER x 1 SELTYN 
OPEN (6,FILE 一 ”STATUS = NEW7 
WRITE( + ,10) 
10 FORMAT (’ INPUT CELL PARAMETERS (IN ANGSTROM”' 
/ ‚' & DEGREE):',/:3X,'a, b, с = 7,0 
READ(* ,* ) А(1),А(2),А(3) 
WRITE( +» ,"3X,"alpha beta gamma = ??#,\)?) 
КЕАП(»,») B(1),B(2) EC3) 
WRITE(6,20) 
20 ҒОЕМАТС INPUT CELL PARAMETERS (ІМ ANGDTRON' 


30 


50 


69 


70 
80 


90 


100 


/ 


/ 


/ ‚* & ПЕСКЕЕ)Ҙ,” 


УУКІТЕ(6,30) А(1),АС2),А(3) 
FORMAT (3Х, "а =—,',Е10.7,7А,Ъ = ',F10.7,7X ,*c =? 


/ .Е10.7) 


МЕТЕ (6,40) В(1),8(2),В(3) 
FORMAT(3X ,'alpha = °,Е7. 2,6Х, beta = ”,Е7,2,7Х 


gamma = ',F7?. 2, /> 
RAD = 3.14159/180. 0 
б = 1. 0 
DO 501 = 1,3 


ӨСІ) = SIN(RAD * В(1)) 

СО) = СОЅ(КАР x В‹1)) 

АС + 3) = АП) 

5(1+ 3) = 50) 

Са + 3) = СО 

G = G — СО) + C(1) 

OMEGA = А(1) * A(2) «А(3) «ЗОЕТ(С + 2x C(1) tet2) C(3)) 

WRITEC ,60) OMEGA 

WRITE(6,60) OMEGA 

БОВМАТАХ ,'CALCULATED CELL VOLUME; OMEGA = * 
.Е7. 3," ANGSTROM + ж 3°, /) | 

ОМЕСАР = 1/0МЕСА 

DO 801 = 1,3 

АРА») = АЙ +1) * A + 2) * S(D/OMEGA 

СР) = СИУ 11 +< C(I + 2) — СОИ 801 + 15950 + 22) 

ІЕ(СР(1). EQ. 0. 0) GO ТО 70 

ВР(1) = АСО(СРООО/ЖАЮ 

СО ТО 80 

ВР) = 

CONTINUE 

WRITE( x ,90) 

WRITE(6,90) 

FORMAT(1X,'CALCULATED RECIPROCAL CELL *. 


/ 'PARAMETERS (IN ANGSTROM * + (— 1) % ПЕСКЕЕ), *) 


WRITE( „+ ,100) АР(1),АР(23,АР(3) 

WRITE(6,100) АР‹1›,АР(2),АР(3) 

ЕОЕМАТ (ЗХ, ’а ж = ',F10,7,7X,"b* = *,F10.7,75X, 
с» = ',F10.7) 
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WRITEC< ,110» ЕР(1»,ЕР(23,ВР<3) 
МЕТТЕ (6,110) ВР‹1›).,ВР‹42),ВР(3) 
110 FORMAT(3X, alpha + = ',Е7. 2,6Х,'еаж = *, 
ЖЕ. Е7.2,7Х,'ратта+ = !,Е7.2) 
WRITEC + .120) ОМЕСАР 
МЕТТЕ (6,120) ОМЕСАР 
120 FORMATC CALCULATED RECIPROCAL CELL VOLUME ,* 
/ , ОМЕСА»ж = ".Е10,7,” ANSTROM * + (— 3)", /2 
WRITE( » ,130) 
i30 FORMATGOX. DO YOU WANT ТО CALCULATE THE’, 
/ 'CRYSTAL DENSITY?(Y/N) 52 
READ + ,140 SELTYN 
144 КҒОВМАТ(А!|1) 
IF (SELTYN. EQ. IN OR, SELTYN. EQ. п') GO ТО 190 
WRITE( ж ,150) 
150 FORMATC INPUT SUM ОЕ ATOMIC WEIGHTS БОК”, 
/ ATOMS CONTAINED ІМ А LATTICE POINT, 0 
READ( x< , ж) АМ 
WRITEC* ,160) 
160 EFORMAT(IX,'INPUT NUMBER ОЕ LATTICE POINTS °, 
/ "Ч A CELL, ",N 
READ( z ,* у NLPT 
МГЕТТЕ (6,170) AM ,NLPT 
170 FORMATO INPUT SUM OF ATOMIC WEIGHTS ҒӘК”, 
/ "АТОМ8 CONTAINED ІМ А LATTICE POINT, `, 
/ F8. 2/' INPUT THE NUMBER ОҒ LATTICE ', 
Ў POINTS IN А CELL, 7,12) 
DC = МРТ + АМ /0. 6022/0МЕСА 
WRITE( * ,1803 DC 
МЕРТЕ (6.180) РС 
189 FORMAT(1X,'CALCULATED CRYSTALLINE DENSITY , 
/ ОС = %Е7.3, g/cm #3',/) 
190 WRITE( + ,200) 
200 FORMAT(1X,'DO YOU WANT TO CALCULATE THE ', 
/ 'NUMBER ОЕ LATTICE POINTS IN А CELL?(Y /N) 0 
READ( є ,'А1)') SELTYN 
IF(SELTYN, EQ. 'N*, OR. SELTYN. EQ. т”? GO ТО 250 
УКІТЕ( к ,210) 
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220 


230 


240 


250 
260 


270 
280 


290 


300 


РОБМАТОХ,ЛМРОТ CRYSTALLINE DENSITY ， 
/ ҰЯСЫ g/cm * #3). 7,59 
READ *%,* у DC 
WRITE( * ,220) 
FORMAT(1X ,'INPUT SUM ОҒ ATOMI € WEIGHTS FOR ， 
/ V ATOMS CONTAINED IN A LATICE POINT: 9 
READ( z , +) АМ 
ҮУКІТЕ(6.,2303 DC, AM 
FORMAT(X ,INPUT CRYSTALLINE DENSITY АМ” 
/ Са/стпаж #3); ',F7.3/' INPUT SUM Olf ATOMIC ', 
/ "WEIGHTS FOR ATOMS CONTAINED IN А LATTICE ' 
/ ,'POINT, '.Е8.2) B 
NLPT = IFIX (DC x OMEGA * 0. 6022/ АТМ + 0.5) 
WRITE( + ,240) МІРТ 
WRITE(6,240) МРТ 
FORMAT(IX.'CALCULATED NUMBER OF LATTICE’, 
/ ' POINTS ІМ CELL = 712,/4ұ 00 
WRITE( = ,260) 
FÖRMATGX.'DO YOU WANT ТОСАМІСІЛ,АТЕ THE”, 
/ 'DISTANCE BETWEEN CRYSTAL PLAANESI(Y/N) 759 
READ = „'(А1!'› SELTYHN 
IF(SELTYN. EQ. 'N' ОБ. Е ТҮМ. EQ. _ 917) GO TO 320 
WRITE( + ,280) 
FORMAT(IX, INPUT MILLER INDEXXES, ҺЫ = ',N) 
READ( x ,* > HKI. 
IH = НК1,/104 
Н(1) = FLOAT (IH) 
IK = (HKL — ІН = 1002/10 
НО?) -ЕІОАТХІК); 
IL = HKE — IH * 100 — ІК =+ 10 
H(3) = FLOAT (IL) 
WRITE(6 ,290) IH.IK ,1 
БОКМАТС INPUT MILLER INDEXES? S, hkl = ',311) 
CALL DR2¿4Q ,HT 
DHKL = 1/DSQRT (Q) 
WRITE( + ,300} DHKL 
WRITE‘6,300} ОНКІ. 


FORMAT: CALCULATED dhk! = '.В.ра, 5, 'ANGSTROM'/) 
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340 
359 


360 


370 


390 
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WRITE( * ,310) 

ҒОКМАТС DO YOU WANT ТО TRY ANOTHER (Y /N) "> 

READ( * (А”) SELTYN 

IF (SELTYN. EQ. *'Y*.OR. SELTYN. EQ. y) GO TO 270 

WRITE( * ,330) 

ҒОВМАТС DO YOU WANT TO CALCULATE GLANCING’ 
/ ‚’ ANGLES?CY /Ny ",) 

READ( * ,CAl1)’Y SELTYN 

IF{SELTYN. EQ. *N*, OR. SELTYN. EQ. т?) GO ТО 390 

WRITEC* ,350) 

FORMATO INPUT DIFFRACTION ІМБЕХЕ5;”, 
/ "ВК" = *,\) 

READ(* , x ) HKL 

WRITE( * ,360) 

FORMAT (IX,'INPUT THE WAVE LENGTH OF X — RAY', 


/ ' (ІМ ANGSTROM), ALAMDA = ”,) 


READ(C8 #,+) ALAMDA 

IH = HKL/100 

H(1) = FLOAT(IH) 

IK = (HKL — IH + 100/10 

Н‹2) = FLOAT (KY 

IL = HKL — IH + 100 — IK x 10 ` 

H3) = FLOAT (IL) 

ҰЕІТЕ (6,270) IH,IK,IL,ALAMDA 

ҒОРМАТСІМРГ?Т DIFFRACTION INDEXES, h**'k**1***, - 


/ °= "Зп INPUT THE WAVE LENGTH ОЕ X — RAY' 
/ м: ALAMDA = ',F7.4," ANGSTROM’) 


CALL DR2(Q ,H) 

ST = 0.5» ALAMDA + DSQRT(Q) 

THETA = ASIN(ST)/RAD 

WRITE( » ,380) THETA 

ҰЕІТЕ (6,380) THETA 

FORMAT (CALCULATED BRAGG ANGLE: THETA = ， 


/ F8.5,' ПЕСКЕЕ",/) 


WRITE( ж ,310) 

КЕАП(ж,ЖА1)9 SELTYN 

IF(SELTYN. EQ. 'Y*. OR. SELTYN, EQ. 'y'>y GO TO 340 
WEITEC # ,400) 


400 


410 


420 


430 


440 


450 


460 


FORMAT( DO YOU WANT ТО CALCULATE DISTANCE’, 


/ * BETWEEN TWO ATOMS OR BOND LENGTH?(Y/N) 9 


READ( + ,'(А1)') SELTYN 
ІҒ(ЅЕІ ТҮМ. EQ. NT OR. ЗЕГТҮМ, EQ. nn СО ТО 470 
WRITE( + ,420) 


ЕОЕМАТ (° INPUT CRYSTAL COORDINATES OF ТЖО”, 


/ ' ATOMS А AND В;' 
WRITE: + ,430) 
FORMAT(3X, xA,yA,zA xB yB, ,zB = ',\) 
READ(* ,*) T(1),T(2y,T(2y,U(1),U(2) ,U(32 
WRITE(6,440) T(1),T(2y,T(3),U(1),U(2),U(3) 


ҒОКМАТС INPUT CRYSTAL COORDINATES ОЕ ТЖО”, 


/ 'ATOMS (xA,yA,zA xB, ,yB,zB); '/3X,6F9.5) 
DO 4501 = 1,3 

DX(D = UD — T(D 

АРА») = Аб) 

СР() = CO 

CONTINUE 

CALL DR2(Q,DX) 

R = DSQRT(Q) 

WRITE( x ,460) R 

WRITE(6,480) R 


FORMAT(' CALCULATED DISTANCE BETWEEN ATOMS’, 


/ ' A AND B; R = ',F8.5,' АМСЅТКОМ'/) 

WRITE( * ,310) 

READ¿( * AT SELTYN 

IF (SELTYN., EQ. 'Y*. OR, SELTYN. EQ. у' GO ТО 410 

WRITE< » ,480) 

ЕОВМАТС DO YOU WANT TO CALCULATE BOND ° 
/ ,ANGLE?(Y /N) 59 

READ( » ,ҚА1)9 SELTYN 

IF(SELTYN. ЕО. 'N*, OR, SELTYN. EQ. *n*) GO ТО 560 

WRITE( * ,'(* INPUT CRYSTAL COORDINATES OF”, 
/ " ATOMS A, B AND С,'")% 

WRITE( + ,'(3Х,”хА,уА,гА = **,N2) 

КЕАЮ( +, ғ >) TI), T(22,T(3) 

УБІТЕС» ,'(3X,"xB,yB,2B = **,\)”) 

БЕАр(ж, «2 U(1),U (2), U(3) 
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WRITE< +» ,'(3X,"'xC yC, ,zC = 7,599 
КЕАЮ(ж, ж) V(1),V(2>,V (3) 
WRITECS 50у T(1).T(2),T(3>2,U(1y.U(2>.ÚÜt3) 
/ ,V(1),V(2),V (3) 
500 FORMAT INPUT CRYSTAL COORDINATES ОЕ ATOMS 
/ A, BAND C,'/4X ATOM’, 6X, x ' 
/ ,'y 27/5Х,А7,4Х,3(Е6.3,5Х2/5Х 
/ ."В',4Х,3(Е6. 3,5Х)0./.,5Х,7%С!,4Х,3СЕ6.3,5Х)) 
DO 510 l = 1,3 
АРА) = АЙ) 
510 “CP(D = CU) 
DO 520 [= 1,3 
DX (1) = Т) — U(1) 
520 CONTINUE 
CALL DR2(Q ,DX) 
R1 = DSQRT(Q) 
DO 5301 = 1.3 
530 DxD 一 UL Yil; 
CALL DRZ., LX) 
R2 = DSQRT(Q) 
ГО 540 l= 1,3 
540 DX = TI) — V) 
CALL DR2(Q. DX) 
кз = DSQRT (Q) 
Сіз (Ri + RI + R2 + R2 — R3 * R3) (2+ R1 < R2) 
PSI = АСО5‹С1›/ВАР 
WRITE ж ,550) PSI 
WRITE(6,550) PSI 
550 FORMAT CALCULATED BOND ANGLE PSI, < АВС = ' 
/ ,Ғ7.3, DEGREE) 
ЖЕТТЕС» ,3101 
КЕАрСж, (А109 SELTYN 
IF SELTYN, EQ. 'Ү'. OR. SELTY N, EQ. ?у') СО ТО 490 
560 ЖКІТЕ(» ,590) 
590 ҒОКМАТС DO YOU WANT ТО CONVERT CRYSTAL COOR’ 
/ DINATES ТО ORTHOGONAL COORDINA TES?CY AN 50 
READ( x ， (А1) SELTYN 
IF(SELTYN, EQ. №". OR. SELTYN, EQ. ‘n'y GO ТО 640 
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600 


010 


620 


630 


10 


/ 
/ 


/ 


I = 0 
I=I+1 
WRITE( # ,610) 1,1,1 


РОЕМАТС INPUT THE CRYSTAL COORDINATES ОЕ”, 
/ "THE АТОМ,7/3Х,х(8,12,9,0уС,12.9,! 
/ 26,12, ) = ,“ 


READ‘ +, +) СХ,СҮ,С2 
WRITE(6,620) L.CX ,TCY ,1,CZ 
FORMATO INPUT CRYSTAL COORDINATES */3X, 


/ 《TIT1 =’, F8 5,3X,'y C1, =?’ 
/ .Ғя.5,3Х,%С,11,7” = *,F8.5) 


X1 = А(3) * (C(1) — C(2) + С(3))/5(3) 

X2 = OMEGA/(A(1) « А2) + 5(3)) 

X = A(1) < CX + A(2) # С(3) CY + A(3) # C<2) + CZ 
Y = А(2) x S(3) x CY + ХІ * CZ 

Z = X2 * CZ 

WRITE( + ,630) 1.Х,1,Ү,1.2 

WRITE(6.630 ) 1,Х,1. Ү.1.2 


FORMATC CONVERTED ORTHOGONAL COORDINATES °, 


TIN ANGSTROM): '/3X., X0 11.) = ',F8.5,3X. 
ҮҮӨ”) = ',F8.5,3X,'Z0 11, = *,F8.5/) 

WRITE » ,310) 

READ( < (Al SELTYN 

IF (SELTYN, EQ. 'Ү'. OR. SELTYN. EQ. уэ GO TO 600 

END 

SUBROUTINE DR2(Q ,H) 

REAL * g Q,L(3) 

DIMENSION НЗ) 

COMMON АР‹3),СР(3) 

Ч 一 0.0 

DO 191- 1.3 

L (Iy = Н) * AP(1) 

Q = Q + L(I) *L(D 

О-0--2» (1,12% 1,(9)9« CP(3) + L(2) * L(3) CCP) 

+ L(1) * L(3) + CP(2)) 
RETURN 
END 
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51.2 ЖЕЛЕ 


我 们 所 处 的 环境 ,从 宏观 到 微观 ,无 处 不 存在 对 称 性 . 所 以 ,人 
们 认为 对 称 性 是 物质 世界 的 基本 属性 之 一 ， | 

使 一 物体 与 其 自身 相 重 合 的 空间 变换 ,被 称 为 对 称 操作 . 即 对 
称 物体 经 过 某 一 操作 后 ,物体 中 每 一 点 都 被 放 在 周转 环境 与 原先 
相同 的 相当 点 上 ,无 法 区 分 是 操作 前 的 物体 还 是 操作 后 的 物体 . 在 
变换 过 程 中 ,必须 维持 空间 任意 两 点 何 的 距离 保持 不 变 , 经 过 对 称 
操作 后 使 物体 上 的 每 一 点 , 变 到 它 的 等 价 点 . 由 于 每 种 晶体 或 分 子 
所 具有 的 对 称 操 作 的 完备 集合 皆 符 合 数学 中 群 的 定义 ,所 以 可 以 
用 群 的 语言 来 描述 品 体 和 分 子 的 对 称 性 ， 

利用 对 称 性 概念 及 有 关 原 理 和 方法 解决 面体 物理 学 问题 ,可 2 
以 使 我 们 对 其 规律 的 认识 更 简洁 和 更 深入 . 


1.2.1 晶体 的 宏观 对 称 性 ,32 种 点 群 


河 期 排列 是 所 有 晶体 的 共同 性 质 , 正 是 在 原子 周期 排列 的 基 
础 上 ,产生 了 不 同 晶 体 所 特有 的 各 式 各 样 的 宏观 对 称 性 ， 


一 , 昌 体 宏观 对 称 元 素 和 对 称 操作 


L. 旋转 轴 各 旋转 操作 (C.) 

旋转 操作 是 将 晶体 绕 通 过 其 中 心 的 提 ,旋转 一 定 的 角度 ,使 蝇 
IK 复原 的 操作 , 旋转 所 依据 的 对 称 元 素 称 为 旋转 办. 次 旋转 轴 用 
记号 C, 表示 . 由 于 晶体 结构 具有 周期 性 ,在 齐 体 中 只 允许 存在 1, 
2,3,4,6 共 五 种 轴 次 的 对 称 轴 ,不 可 能 存在 5,7,8,10 等 次 轴 。 

能 使 物体 复原 的 最 小 旋转 角 (0?" 除外 ) 称 为 基 转 角 a,C. 轴 的 


基 转角 “一 259 ,旋转 角度 按 首 时针 方向 计算 , 当 旋转 角度 等 于 基 


转角 的 2,3,…… 整数 倍 时 ,晶体 也 能 复原 ,这 些 旋转 操作 分 别 记 
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сї = СС, © = CCC, e (1 — 30) 
讨论 对 称 操 作 时 , 常 将 晶体 定位 于 右手 坐标 轴 系 上 ,晶体 的 重 
ММЕН ОНА ЕНІН C, SH) 和 = 轴 重 合 . 
因为 各 种 对 称 操 作 相当 于 不 同 的 坐标 变换 ,而 坐标 变换 为 一 
种 线性 变换 ,所 以 可 用 变换 矩阵 表示 对 称 操作 . 由 线性 代数 得 到 
С.Ю АК ЕЕ С, 的 变换 矩阵 为 : 


2Ëm 227 

cos — — sin — 0 

t _ 
C = ЖТ дел тев == 0 (1 31) 
9 0 1 
例如 ,对 于 C: 操作 ,* -ңІл-2, БА Ж: 

一 】 0 0 
0 Q ] 


2. XE RRP GCHAR ARIF С) 
如 晶体 中 存在 某 一 特殊 点 ,从 蝇 体 中 任 一 原子 至 此 点 连 一 直 
线 , 将 此 线 延 长 ,都 可 在 和 此 点 等 距离 的 另 一 仙 找 到 另 一 个 相同 的 
原子 ,此 特殊 点 称 为 晶体 的 对 称 中 心 . 和 和 对称 中 心 相应 的 对 称 操作 
称 为 反 演 或 倒 芭 ,以 上 表示 . 
若 对 称 中 心 位 于 原点 (0,0,0) 处 , 反 演 操作 i 的 变换 矩阵 为 
— 1 0 4 
0 — 1 О 
0 0 一 1 
”连续 进行 两 次 (或 偶数 次 ) 反 演 操作 等 于 主 操作 (也 韦 恒 等 操作 ， 
I E RTO ВЕН е нн Л). 所 以 
А N п ЖЕЖ 


i nn 为 奇效 


(1- 33) 


(1 — 34) 
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3. ЖЕШ ЯП FL PR ЕЕ Co) 

镜面 是 平分 晶体 的 平面 , 在 晶体 中 除 位 于 镜面 上 的 原子 外 ,其 
它 尿 子 成 对 地 排列 在 镜面 两 侧 , 它 们 通过 反映 操作 可 以 复 囚 . ТЕТ] 
论 吨 体 结构 时 ,镜面 对 称 元 京 常 用 o 表示 . 

车 镜面 与 zy 平面 平行 并 通过 不 点 , 则 反映 操作 o 的 变换 矩阵 
为 
1 0 
9 0 (1- 35) 
0 шы | 
fu i Ht. JE EE +T PI K БЕК PE E , НУТ ERE, Б ER E Al 
ЕРЕЕН З. 


Uy = 


0 
1 
0 


„|> "Зян (1 — 36) 


| с па 

ЖЫ Ж. И ЯП БЕ ТЕ ЖН ТЕ 55 ТЫ РЕ В) Л Ја]. WW 4 2 ГЕРБ 
表示 . 当 5 EATEN C,H о RIRA Ж Р Һогігома[);6 通过 
主轴 C. ә, RA бо 来 源 于 verticat)iz 通 过 主轴 C, ЗУД (С, 
ап) 的 夹 角 ,以 a, Ramid 来 源 于 diagonal, 或 dihedral). ГФА.Ҙ, 


d 在 标记 晶体 点 群 时 有 重要 意义 . 
4. ЫЗ Б A RIEC.) 
БІН АНЕ EO ,接着 按 轴 上 的 中 心 点 进行 


БІ, = iC. 这 个 操作 是 C, 和 i 相继 进行 的 联合 操作 , 对 称 元 过 
Г, 等 于 i;1 等 于 等 等 

对 于 反 轴 工 . 当 为 奇数 时 ,包含 2n 个 对 称 操作 , 它 由 量 施 
转轴 C. 和 对 称 中 心 i 组 成 ; 当 为 偶数 而 不 为 4 的 整数 倍 时 ,由 旋 
转轴 С, 和 垂直 于 它 的 镜面 o 组成; 当 #* 为 4 的 整数 倍 时 ,1. 是 一 
个 独立 的 对 称 元 素 

5. 映 轴 和 旋转 反映 操作 (5) 


映 轴 ,5S。 所 对 应 的 基本 操作 为 绕 轴 转 
28 


360% 


7 


нен TRA 


平面 进行 反映 .3, = оС. 这 个 操作 是 C, 和 o 两 操作 相继 进行 人 的 联 
ӘРЕ. 

线 主 轴 (z BH) р а = 192. 后 后 ,接着 按 ху 平面 进行 反映 , 贴 得 
到 旋转 反 鲜 操作 ЖЕТТІ 


27 Р ел | 
cos — —sn— Ù 
л 
== соот Әл (1 — 37) 
sin — cos — 0 
71 
Ü Ü 1 


БІ, УВ S, 是 互 有 联系 的 ,它们 之 间 的 关系 ,以 及 它们 
与 其 它 对 称 元 素 的 关系 如 下 : 


L = 5, =i S= f =@ 

1, = Š, = о S, = р =: 

L =S, 一 上 人 十 上 65,-і; = CG +o (1- 38) 
Г. = 8, 1 二 А 


І, = 85 = С, фо 85,- 5 = С, і 
式 中 在 上 角 的 负 号 表示 逆 操 作 . 

由 于 反 轴 和 了 喘 轴 两 者 是 相通 的 ,对 它们 只 要 选择 一 种 即 可 , 在 
МИФ ТЫН АН S., 但 有 时 也 用 反 轴 天 

综 上 所 述 ,局 体 中 可 能 存在 的 宏观 对 称 操作 可 分 为 两 大 类 ;向 
单 旋转 操作 属 第 一 类 ,为 实 操 作 . 其 特点 是 能 具体 操作 ,和 直接 实现 ，. 
其 恋 换 和 矩阵 4 的 行列 式 的 值 det А = 1, 称 之 为 正当 转动 ,其 转轨 
称 为 真 轴 . 其 余 的 对 称 操作 ,如 反映 、 反 演 , 旋 转 反 上 映 ,、 旋 转 反 演 寺 
ЕАС. ЕМЕ 其 特点 是 操作 只 能 在 想象 中 实现 ,其 变换 
ЖА 的 行列 式 的 值 det A = 一 1, 列 之 为 非 正当 转动 ,对 应 的 主 
Ai ER A GER R. 


. A 


1. 群 的 定 艾 
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一 个 晶体 具有 的 全 部 对 称 元 素 构 成 一 个 完整 的 对 称 元 素 系 ， 
和 该 对 称 元 素 系 对 应 的 全 部 对 称 操作 ,构成 一 个 对 称 操作 群 . 群 是 
按照 一 定 规律 相互 联系 着 的 一 些 元 (或 称 元 素 ) 的 集合 ,这 些 元 可 
以 是 操作 ,数字 ,和 矩阵 或 算 符 等 . 本 节 中 群 的 元 均 指 对 称 操作 或 与 
对 称 操作 相应 的 变换 矩阵 . 
已 经 证 明 ,每 种 晶体 和 分 子 的 所 有 对 称 操作 元 A,B,C…… 的 
集合 G = (А,В,С) 都 同时 满足 群 的 下 个 条 件 ， 
i) 封闭 性 
元 4 和 妃 若 为 同一 群 如 中 的 任意 两 个 对 称 燥 作 , 则 АВ = С, 
C 也 是 群 上 G 中 的 一 个 对 称 操作 , 它 表示 先 操作 B, 再 操作 加 ,所 得 结 
ЖУН ЕЕС 的 结果 完全 一 样 . 
п) 结合 律 
操作 的 乘法 符合 下 面 的 结合 
А«ВС) = (AB)C (1 一 39) 
їй) 主 操作 (或 叫 单位 元 ) 
在 每 个 群 G 中 必 有 一 主 操作 王 , 它 与 群 中 任何 一 个 操作 相 宁 
给 出 
АЕ = ЕА = А (1 一 40) 
iv) Е 
群 刀 中 的 每 一 个 操作 44 均 存在 六 操作 4 ,А :也 是 该 群 中 的 
一 个 操作 . 道 操作 是 按 原 操作 退回 去 的 操作 . 
АА! = АЧА = E (1-40 
上 述 四 条 既是 判断 对 称 课 作 的 集合 是 各 形成 一 个 群 的 标准 ,也 是 
群 的 最 基本 的 性 质 . 
МЕР 4,B,C 等 群 元 的 数目 , 称 为 群 的 阶 次 , 群 中 元 的 数 
目 为 有 限 的 群 称 为 有 限 群 ,元 的 数目 为 无 限 的 群 称 为 无 限 群 ， 
当 一 个 群 中 的 部 分 元 满足 上 述 四 个 条 件 时 , 则 这 部 分 元 构成 
时 群 称 为 该 群 的 子 群 ; 子 群 的 阶 是 该 群 的 阶 的 一 个 因子 . 
2. ña ЕТІҢ 32 种 点 群 
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晶体 宏观 对 称 性 中 的 对 称 元 素 和 其 微观 结构 中 相应 的 对 称 元 
ж, 是 紧密 相关 的 ,由 于 宏观 观察 区 分 不 了 平移 的 差异 ,使 晶体 的 
宏 观 性 质 呈 更 连续 性 和 均匀 性 ,微观 对 称 操作 中 包含 的 平移 已 被 
均匀 性 所 掩盖 ,结构 中 的 螺旋 轴 和 请 移 面 等 ,在 宏观 对 称 性 中 表现 
为 旋转 轴 和 镜面 . 所 以 ,在 晶体 外 形 和 宏观 观察 中 表现 出 来 的 对 称 
元 素 只 有 对 称 中 心 ,镜面 和 轴 次 为 1,2,3,4,6 ИЛЕ ТБ, 5 
这 些 元 素 相应 的 对 称 操 作 都 是 点 操作 . ААЖ и БА 
操作 时 ,这 些 宏观 对 称 操作 一 定 通 过 一 个 公共 点 ;在 操作 进行 过 程 
п, 该 点 维持 不 动 . 由 维持 空间 某 一 点 固定 不 动 的 旋转 , 反 演 、 反 
”上映 ,旋转 反 演 操 作 所 构成 的 群 , 称 为 后 群 . 

旋转 轴 . 象 转轴 ,螺旋 轴 和 滑 移 反映 面 在 空间 组 合成 的 对 称 元 
素 的 对 称 操 作 集合 组 成 空间 群 . 

本 节 所 附 的 程序 主要 讨论 晶体 的 对 称 性 和 所 局 的 点 群 , 故 不 
包含 平移 对 称 操 作 ， 

由 于 晶体 中 原子 周期 排列 的 限制 ,不论 任何 晶体 ,只 可 能 有 下 
列 8 种 宏观 素 对 称 操 作 ,C С.С, .С, Casina, L (sk S,). 用 此 8 种 
宏观 素 对 称 操 作 进 行 组 台 时 ,由 于 受到 群 的 性 质 限制 ,只 能 组 成 
32 种 点 群 ,这 就 是 说 ,晶体 的 宏观 对 称 , 只 有 32 种 不 同类 型 ,分 别 
由 32 种 点 群 来 概括 ， 

3. 品 体 32 种 点 群 简介 

最 简单 的 点 群 只 含有 一 个 元 素 ( 主 操作 ) ,可 以 用 C 标记 , 它 
表示 没有 任何 对 称 性 的 晶体 ,C, ЖА ЭВ. 

只 包含 一 个 旋转 轴 的 点 群 称 为 回转 群 , 标 记 为 CisCs1C, Cs 
共有 4 +. 

包含 一 个 ВЕЕ н 个 与 之 季 直 的 二 重 轴 的 点 群 称 为 双 
面 群 ,标记 为 DD, 这 样 的 点 群 有 Di,D;,D,,D,. 共 4 个 . 

”在 上 述 点 群 的 基础 上 ,增加 反 演 中 心 或 一 些 镜面 ,可 以 组 成 新 
的 点 群 , 如 下 所 示 ， 
С, 群 加 上 反 演 中 心 , 组 成 C( 即 反 演 中 心切 群 ;C: 群 加 上 反映 
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АН C, СЕГЕ a) 群 . | 

C, ЕОПЕН ШЕН L WR R С, EHA CaCa СЕ 
S,) А Ca 4 T C, Еа Тап ЕН N С, 群 ,也 有 
C; sC sC Сь 4 7. 

D, 群 加 上 与 二 重 轴 垂 直 的 反映 面 组 成 厂 。 群 ,共有 D, , Бу. 
DaDa 4 个 ;DD, 群 加 上 通过 4 重 轴 及 两 根 二 重 轴 角 平 分 线 的 反映 
而 组 成 Dj 群 , 分 析 表 明 ,n 只 能 取 2 与 3, 故 只 有 Dw,Daz2 个. 

但 可 以 有 只 包含 旗 转 反映 轴 的 点 群 ， кыла. 群 ,不 这 只 有 S, 
5:2 21 

Hz J YP A 5 fh X$ FE TE Fe Pb BJ sx PE, BH T /A WI K s WF 
(2, (octahedral group); 正四 面体 点 群 T(tetrahedral group);O, 
群 中 的 纯 转 动 操 作 组 成 0 В.Т. REPA Ph 35 ARERR T HT 
БЕЛП ЕБ ВАМ Т,Ж. 

Ий Ки ж ЖА: 32 fh K Е. ПИ I ñin PK 32 种 点 群 的 对 称 性 
操作 数目 详细 列 在 玫 1-3 中 (与 分 子 的 点 群 列 在 一 起 )， 

3. RUREK 

如 果 知 道 一 个 级 
有 限 群 的 元 及 这 些 元 的 
КН ЛЕН ЖЕН (HE h° 
ТЛ Z 32 4 WE 9 2 
确定 了 ,并 可 用 群 的 滋 
法 表 的 形式 到 它们 简明 
地 表达 出 来 . ЖЕН 
h 行 (每 行 由 左 至 右 冰 
ЕСЕЛІ: F 2 F) # 
成 , 在 行 坐 标 为 X 和 列 
坐标 为 了 的 交点 上 找到 图 1-9 C, 点 群 的 对 称 操作 
的 元 是 YX, 有 即 先 操作 
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和 再 操作 Y. 因为 对 称 操 作 的 乘法 一 般 是 不 可 交换 的 ,所 以 要 注意 
次 JE. ТЕК ЕНЕ ЕР, 每 个 元 在 每 一 行 和 每 一 列 中 只 出 现 一 次 ， 
不 可 能 有 两 行 是 全 所 的 ,也 不 可 能 有 两 列 全 同 . 每 一 行 和 每 一 列 者 
是 元 的 重新 排列 . | 

例如 ,具有 Cs 点 群 对 称 性 的 晶体 ,如 图 1-9( H mi Hi — da Bü) 
所 示 . 有 4 个 对 称 操作 :EE,C,,0，0s. 这 些 操作 按 乘法 规则 排 成 群 
的 乘法 表 , 如 表 1-2 所 示 ， 


3% 1-2 Cw 群 的 乘法 表 
С; Е С, 2, os 
Е Е С; б,, 8, 
С, С. Е Ж б, 
а, Fyz Us Е С, 
б, бу: д, С; Е 


1.2.2 ”分 子 的 对 称 性 及 其 所 属 点 群 


分 子 的 结构 使 雪 对 称 性 与 晶体 的 对 称 性 不 同 , 它 在 微观 上 泊 
有 周期 排列 特性 ,因此 只 是 点 对 称 . 亦 即 只 有 四 种 类 型 的 对 称 操作 
РКС: 

(1) 旋转 操作 一 一 旋转 轴 

(2) 反映 操作 一 一 BEE 

(3) 反 演 操作 一 一 对 称 中 心 

(4) 旋转 反 演 操作 一 一 Б 
没有 相应 于 点 阵 的 平移 拘 作 . 

正 因 如 此 ,分 子 的 旋转 操作 轴 次 就 不 受 点 阵 周期 性 的 限制 , 除 
1,2,3.4,6 重 轴 外 ,还 可 有 5:7:8 等 轴 次 . 因此 其 素 对 称 操作 的 数 
Н 大 于 晶体 的 宏观 索 对 称 操作 数 自 , 员 然 它 们 的 组 合 也 要 遵守 群 
的 四 个 条 件 , 不 过 点 群 数目 远大 于 32.41 С5.ССЬ-Са D; Р, 
Г.О... Ы, Da S, 等 点 群 也 存在 . 至 于 线性 分 子 则 揭 特 别 , 它 有 
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无 穷 个 ,它们 的 交 线 为 Ce 轴 , 所 以 还 有 C-。 群 ;对 于 同 核 双 原 子 
分 子 除 无 穷 个 m КНЕ РС. Но. 还 有 一 类 二 十 面体 群 , 包 
插 了 和 天 两 个 点 群 , 其 特点 是 都 具有 6 个 Cs 轴 , 正 五 角 十 二 面体 和 
正三 角 二 十 面体 构 型 的 分 子 属于 I 点 群 ,如 将 1 点 群 中 的 第 二 类 
对 称 元 素 去 掉 , 只 剩 下 纯 转动 的 对 称 操作 则 为 了 工 点 群 . 

目前 ,固体 物理 学 工作 者 经 党 研究 一 些 分 子 或 原子 复 以 及 准 
一 维 国体 的 平衡 构 型 和 电子 结构 特性 ,因此 找 出 它们 的 所 纺 点 群 ， 
就 能 大 大 减少 计算 量 ， 

51-3 列 出 了 分 子 的 48 种 重要 的 点 群 的 群 元 (其 中 包括 了 邮 


体 的 32 个 点 群 ). 
表 1-3 分 子 点 群 和 品 体 点 群 
类 шіп # ЕР 元 EA 
无 轴 群 C, E = # 
Е,4, аж 


С. Е.С, 
Е,С.,С? = 
Е,.С.,С,,.Са 四 方 
E ,C,,Cs C3 ,Cs 
E, CaCa CCC 六 骨 
ECCh, Ci Ci CC 

| E,C.,C. C|, Cr Cr Ca Ca 

D, 群 E,C,(zy,C (yy, C, (z) 正 交 


Е.26, ‚ЗС, 
Е,2С, СС Ci) 2C,' ,2С.” 
Е,2С; ‚2С "8С, 


Е,2С,,26,,С,,3С, ,3C," 六 有 角 
F, C, 6, (+z), G, (yz) 1Е 
Е,2С,,36, = 

Е,2С,,С,,22,.244 四 方 


Е,2С;.2С%,54, 


类 型 | 点 Е т 元 |Ж 
Се Е | 26, Р. С, $ 32, ‚394 ЖШ 


С, ВЕ Е,С.,,4,4, 

E, Cy Ch 0S)! 
Е,С,,С)ьСі,і,51,0,,5; 
Е,СЫСЫСЫ С;»2, 43; 19,8%, 9; 

E ,C.,,C СС Cir Si ss 
Е,С,(2),С, (у) Clr) i alry) alz}, 


Da ЖҰ 


осу) | 
Е,2С,,3С.,6, ‚255,30, 六 用 
Е,2С,.С,,2С,,2С,",4,05,эба»24,,00. | 四 方 


Е,2С,,2С,5С.,4,,25,,25%,54, 
Е.ЭС,,2С0,.С,.3С, ,3С,",2.25,,25,,0,» 
304: 39, 
Е,92С,.2С1,2С.,,С,.4С,,4С,7,г,25,.246, 
25,.0,,.424,44, 

Е,25,.С,,2С,!,20, 四 方 
Е,2С,.3С,,1,25,,34; =й 
Е,25,.2С,.25:,С,.4С,,444 
Е,2С..2С:,5С.,1,25%,251а, 544 
5,25, ‚2С, ‚25,,2С,,251› C; .6С”;,6Су 
E,S, C, ‚53 | 
E, ,Cy, C ds ye 

F S; Cu 53 Cy Sl; Ci Sa 
E ,4C, ,4C53 ,3C; 
E,4C,.4C3.3C, t 4S,,4S2,36, 
Е,8С,,3С..685,,644 

E,6C ,3C,(= СІ2.8С..,6С, 
Е,8С.,6С,,6С..3С:.С- С%2.4,65,,85,.20,. 


СҢ 199 | Е,12С,,12С%,20С,»15С; 
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"ГЕТТТЕТТТІГІТГІҒГІТІ 
1.2.3 ЛЕНА ЕВО y ik 


由 于 分 子 所 属 点 群 已 包括 了 品 体 的 32 种 点 群 , 故 下 面 讨 论 的 
判别 分 子 所 属 点 群 的 方法 ,同样 适 MATE ЕН Ж. 

根据 各 点 群 具 有 的 对 称 元 素 系 的 主要 特点 ,可 以 么 步 地 把 它 
们 区 别 开 来 ,以 实现 分 子 和 鼎 体 所 属 点 群 的 判别 . 表 1-4 列 出 了 这 
祥 一 种 通过 逐步 查找 是 否 具有 某 庆 键 对 称 元 人 束 以 确定 任意 分 子 和 
晶体 所 属 点 群 的 方法 . 

此 表 所 根据 的 原理 是 : 

1. 确定 分 子 是 否 线性 分 子 , 线 性 分 子 共 有 无 限 多 个 对 称 面 ,每 
一 个 包含 分 子 轴 的 平面 都 是 对 称 面 . 

2. 确定 分 子 是 否 属 于 具有 高 对 称 性 的 点 群 ,具有 正 多 面体 形 
ЛЕНІ Ж. ES BI КАНН ХАН ИЛЕ 3 É P IR И] p 
的 多 面体 ,共有 五 种 . k ilaj tiy S ERS 24 m I С, О» > 
2). 再 细 分 为 具有 6 个 Cs 轴 的 二 十 面体 群 (Icosahedral Group) 1 
和 了 1, 它 包括 正 五 角 十 二 面体 和 正三 角 二 十 面体 ;还 有 具有 三 个 互 
НЕНІ С, НАЛ ИНЕ О ЯПО, o E В yE /A {ЖКА IE 177 
f£; U RAHET Ta 和 ,它们 具有 正四 面体 构 型 ， 

3. 检查 是 否 有 具有 转轴 . Н. ЖН +С, 进一步 检查 是 否 存 
ЛЭ СЕНЕН C, НЫ r FIS T D..D., 和 DD. ft 
之 一 . Tre xP С, 轴 , 则 检查 是 否 存 在 一 个 (也 只 一 个 ) 
反 轴 1,, 有 者 为 1 和 5 群 之 一 ;无 者 为 CyCw Ж Са 群 中 的 一 个 ， 

4. 若 找 不 到 任何 转轴 和 反 轴 , 则 是 元 轴 群 , 其 中 有 反映 面 ( 即 
对 称 面 ) 的 为 Cs 群 ,有 反 演 中 心 的 是 C; 群 ,完全 不 存在 对 称 元 素 
Ву С, ФЕ. 
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Жі-4 分 子 和 品 体 所 属 点 群 的 判 询 方法 


_—— Ге 


3 Dhan 
B EREE TAEA ARI REET A КА 
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所 具有 的 各 类 操作 数目 不 同 而 可 将 它们 区 分 开 来 . 据 此 可 用 如 下 
七 个 指标 米 表 示 每 个 点 群 的 特征 ;主轴 的 最 高 级 次 MOA ,总 的 对 
ЖЕТЕ Ж NOP; 总 的 正当 转动 探 作 数 NPR; 总 的 非 正 当 和 转动 操作 
Ж NIM; 反 演 操 作 数 NINCHA 1,0 两 个 值 ); 总 的 反映 面 数 NRF 
和 总 的 旋转 反映 操作 数 МК. 例如 ， 
(1) C, P BEIE, CrCl, Chp +++ ,Cr 1!) 
Ж МОА = n, NOP = n, NPR = n, 252. 
(2) C-。 群 ， 有 п 个 元素 ， 为 (E,C. Ceen a, 
95...00), 
Ж МОА = n,NOP = 2л, МРВ = n, NIM = я,МІМ = 0, 
МЕЕ = n,NSR = 0. 
其 余 的 群 也 可 依 此 类 推 .因此 ,只 要 确定 了 分 子 或 晶体 的 全 部 对 称 
操作 元 素 , 求 出 上 述 七 个 指标 的 值 , 就 可 确定 该 分 子 或 晶体 所 属 点 
群 . 


程序 1-2 РАХТИ 
K SA PE BJ Ha Е 


二 ,功能 


ЛСТ) 中 各 原子 的 坐标 ,确定 晶体 (分 子 ) 所 具有 
的 对 称 操作 和 所 属 点 群 . 本 程序 可 以 判定 玫 1-3 中 除 线性 分 子 群 
Сы, 和 Dos 以 外 的 46 PEA Be. 

三 ,原理 


1. 输入 唱 胞 (或 分 子 ) 中 各 原子 的 坐标 和 元 素 符 号 . 为 了 讨论 
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对 称 性 ,首先 把 晶 胞 (分 子 ) 的 中 心 移 到 坐标 原点 ,也 就 是 将 昆 胞 
(分 子 ) 的 重心 取 作 坐标 原 上 后. 

2. 将 所 有 原子 分 成 等 价 原子 组 . 属于 同一 组 的 原子 必须 属于 
同一 种 化 学 元 素 ( 保 证 该 组 原子 的 化 学 性 质 全 同 ), 并 可 为 该 晶 胞 
(分 子 ) 具有 的 所 有 对 称 操 作 互 换 ( 保 诈 该 组 原子 的 周围 环境 也 全 
ІІ). 按 将 对 称 性 等 价 的 原子 放 在 一 起 的 泊 则 ЕГЕР НЕТ. 

3. 确定 晶 胞 (分 子 ) 的 取 庙 ( 即 以 最 高 次 轴 作 为 主轴 ), 找 出 晶 
胞 (分子 ) 的 对 称 操作 , 其 方法 是 用 旋转 、. 反 演 . 反 映 和 旋转 反映 操 
作 的 变换 和 矩阵 (1 一 31)、(1 一 33), (1 一 35) 和 (1 一 37) 式 , 对 等 
价 原 子 组 的 原子 进行 对 称 操作 , 若 操作 后 ,每 个 原子 的 新 位 置 能 与 
另 一 等 价 原 子 的 原 位 置 相同 , 则 此 操作 是 一 个 保持 该 晶 胞 分子) 
不 变 的 对 称 操 作 . 

4. 根据 群 的 封闭 性 ,将 上 面 已 找 出 的 对 称 操作 元 素 作 АВ = C 
的 群 科 ,并 检查 出 此 得 到 的 操作 是 否 为 一 新 操作 ,以 此 将 和 遗 请 本 的 
对 称 操 作 一 一 找 出 ， 

5. 找 出 全 部 对 称 操作 元 率 后 ;算出 各 类 对 称 操作 的 数目 , 按 
1. 2. 3 叙述 的 第 二 种 方法 , Wa ye ñu lk ОР) Eh 8 BJ АЙМАН Ж 
(Schenflies) 符号 表示 出 来 ， 


四 .流程 图 这 


五 . 变 景 说 明 


x 为 输入 变量 ; + 5 ЖЫ. 
INFMAT" :文字 信息 ,字符 型 变量 . 
BOND*; 键 长 变换 参数 = 1( 键 长 用 Bohr 表示 ); = 
1. 8897626 EKA A Жл). _ 
NA,NAT' ,分 别 是 晶 胞 (分 子 ) 中 原 于 的 编号 和 原子 总 数 ， 
NSYMBLINA) .NA = 1,NAT, 第 NA 个 原子 的 化 学 元 达 符 号 . 
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|6 | 


输入 键 长 变换 参数 , 唱 胞 (分 子 )? 中 总 
原子 数 ,各 原子 的 元 素 符 号 ,原子 序 
数 和 坐标 ,以 及 等 价 组 纳 与 


将 所 有 原子 分 成 等 价 原 子 组 ,将 原 
子 按 等 价 组 重新 排序 
确定 唱 胞 (分 子 } 取 向 , 找 出 对 称 操作 


用 群 乘 找 出 其 余 的 对 称 操作 


根据 各 类 对 称 操作 数目 ,确定 晶体 | 
分子) 所属 点 群 ,用 能 夫 利 符号 表示 | 
з ката акне 


| 结束 ] 
旅程 图 1 一 2 


字符 型 变量 . | 

NZ(NA)' :NA = МАТ. Ж NA 个 原子 的 原子 序数 . 

XV(NA ,YV(NAY' ,ZV NA)’ :NA = 1,NAT. 第 NA 个 原子 
的 xz,y,z 坐标 ,单位 为 Bohr 或 和 A, 闫 定 于 BOND 的 取 
值 . 

NEQ(NA)' :NA 一 1,NAT. 第 NA 个 原子 所 属 等 价 组 的 编写 . 输 
入 时 一 般 全 取 0. 

ANGLE+ ,旋转 角 , 单 位 是 弧度 ， 

РОТАХСОУ), ИЕ XE. I = 1,2,3 分 别 对 应 于 oz.oy,oz 二 个 

40 


分 量 . 

ALPHA* BETA ,GAMMA+ ,分 别 是 欧 拉 角 a,8 和 和 7, 单位; 弧 
№. 

КМАТАӢ, р) s RMT(I,J) 1 J ER 1.2,3. 对 称 操作 的 旋转 矩 
阵 . 

NDA ,NDAT ;分别 是 等 价 原子 组 的 编号 和 等 价 原 子 组 总 数 . 

NEQS(NDA), 或 KTAU(NDA);NDA 一 1,NDAT. 第 NDA 个 等 
价 原子 组 所 含 原 子 数 目 . 

MAJCN* : 主 铀 的 最 商 级 次 МОА. 

NOPERS7 ;总 的 对 称 操作 数目 NOP, 

NPROPR- ;总 的 正当 转动 操作 数 NPR. 

NIMPRP* ;总 的 非 正当 转动 操作 数 NIM. 

NINVER- : 反 演 操作 数 NIN( 只 取 0 或 1). 

NREFLS™ ;反映 面 总 数 NRF. 

NSROTS-” ,旋转 反 演 操作 总 数 NSR. 

LBLD+ : 对 称 操作 的 符号 .CS.,I,REEFL 分 别 表示 正当 转动 , 非 
正当 转动 , 反 演 和 反映 面 . 字符 型 变量 . 

ISYM ;点 群 的 能 夫 利 符号 .字符 型 变量 . 


六 , 子 程序 说 明 


1. SETEQS 

Hie ЖШ СЛ T.) 中 心 移 到 坐标 原点 ,划分 闺 价 原子 组 ,将 原子 
按 等 价 组 重新 排序 . 

2. SYMOPS 


取 最 高 次 轴 作 为 晶 胸 (分 子 ) 的 主轴 , ЕН ОРО 不 
ХЕ WJ 54 КЕЕ. 其 中 调用 了 子 程序 EULER,ADDOP,PERMU 
和 MOLRGOT. 
3.CLOSUR 
将 SYMOPS Е Е ТЕЗЕ САРАЕ ЕНЕ), 
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找 出 漏 掉 的 对 称 操作 . 其 中 调用 了 子 程 序 EULER,ADDOP， 
PERMUT ,OPORDR 和 NOPLBL. 

4. SCHOEN 

根据 各 类 对 称 操作 的 数目 ,给 出 该 晶体 (分 子 ) 所 属 点 群 . 

5. EULER 

将 绕 给 定 旋 转轴 施 转 给 定 角度 的 操作 ,用 一 组 欧 拉 (Euler) Я 
z, B.Y 表示 ,并 计算 该 操作 的 变换 矩阵 . 

6. ADDOP 和 РЕЕМОТ 

ADDOP 调用 PERMUT. 判定 一 个 操作 是 否 为 保持 晶 胞 (分 
TO 位 形 不 变 的 对 称 操作 ,并 统计 各 类 对 称 操作 的 数目 . 

7. MOLROT | 

已 积 初 、 终 转轴 ,计算 从 初始 转轴 转 到 终了 转轴 的 转角 , 并 计 
算 旋 转 矩 阵 . 

2. OPORDR 

将 各 种 正当 转动 和 非 正当 转动 的 操作 , 按 规定 的 次 序 重 排 

9. NOPLBL 

根据 各 对 称 操作 的 旋转 角 的 大 小 ,以 及 是 否 正当 转动 ,将 所 具 
有 的 对 称 操作 分 别 赋予 正当 转动 , 非 正当 转动 . 反 演 和 反映 面 的 符 
ҰР C. 5 I 机 REFL. 


七 ,计算 实例 | 
已 知 立方 硫化 锌 (ZnS) ЖАНАРЫ, ЕҢ Z: 3X а, 一 
МАВАРА ТАН? 原子 占据 以 40,0,0) 为 
| J И „дү fi зү 
代表 的 八 个 硕 角 位 置 和 以 | 0, 去 ,去 | ,| 去 ,0, 计 | [22928 
代表 的 六 个 面 心 位 置 ,S ETW E | |51454). 
3 1 3 3314, ИШТҮҮ 
31,21 + DRAEN нін ін 
输入 数据 , 用 本 程序 计算 立方 ZnS 晶体 的 所 有 对 称 操 作 并 确定 所 
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属 点 群 , 运算 后 ,程序 输出 的 点 群 为 Tv | 
本 程序 运行 时 ,采用 预先 制备 的 如 PTGROP . DAT 的 数据 文 
件 , 作 为 输入 文件 ,数据 以 日 由 格式 读 入 (原子 坐标 тау, 要 用 双 
精度 ) , 运行 所 得 结果 除 在 屏幕 上 显示 外 ,还 生成 一 个 如 OUT 的 
ӘНЕ ЖЕ Ж. 
运行 指令 ;PTGROP РТСКОР ПАТ OUT 


八 、. 输 和 人 文件 ;ETGROP . DAT( 以 计算 硫化 锌 晶体 对 称 性 为 


例 ). 
'» + THE POINT GROUP OF CUBIC ZnS » * ЧИМЕМАТ 
18 1. 8897626 [NAT, BOND 


Fn’ 30 0. 00000 0. 00000 0. 00000 0 Га(0,0,0) 


'Zn' 30 5. 41000 0. 00000 0. 00000 0 Га(1,0,0) 

“Ул! 30 0. 00000 5. 41000 0. 00000 0 Га(0,1,0) 

Zn’ 30 0. 00000 0. 00000 5. 21000 0 Га(0,0,10 

"п" 30 5.41000 5. 41000 0. 00000 0 Га(1.1,0) 

‘Zn’ 30 0.00000 5. 41000 5. 41000 0 Га(0,1,10 

'7' 30 5.41000 0. 00000 5. 41000 0 Га(1,0,1) 

“Оп” 30 5. 41000 5, 11000 5. 41000 0 Га(1,1,10 

Zn’ 30 2.70500 2. 70500 0. 00000 0 Га(1/2,1/2.0) 
Zn’ 30 0. 00000 2.70500 2, 70500 0 Га(0.1/2,1/2) 
ал 30 2.70500 0. 00000 2. 70500 0 (а(1/2,0,1/29 
"а! 30 2.70590 2. 70500 5. 41000 O |а(1/2,1/2,1) 
'Zn' 30 5. 41000 2. 70500 2. 70500 0 [а(1,1/2,1/2) 
“ғ! 30 2. 70500 5. 41000 2. 70500 0 Га(1/2,1,1/2) 
"5% 16 1.35250 1. 35250 1. 35250 0 [а{1/4,1/4,1/4) 
"6" 16 4.05750 4. 05750 1. 35250 0 (а(9/4,3/4.1/4) 
"5% 16 1.35250 4. 05750 4. 05750 0 Га(1/4,3/4,3/40 
5° 16 4. 057501. 35250 4. 05750 0 (а(3/4,1/4,3/40 
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九 , 源 程序 :PTGROP • FOR 


PROGRAM РТСЕОР 

IMPLICIT REAL «8 (A—H,O—2) 

INTEGER «4 NZ.NEQ 

CHARACTER «4 ISYM ,NSYMBL ,INFMAT x 80 
COMMON /APARM /XV (30) ,YY (30) ,ZV {30) ,2{30), NZ2(30) 
/ ‚МЅУМВІ, GO, NEQ<(30),KTAU (16), NATAU (16,16) 
СОММОМ/СООК85/85(8,39) 
COMMON/DIMENS/NAT ,NDAT 
СОММОМЛ,ОСІСІ,ЛРЕТ 
COMMON/MAXDIM/NATMX .NDATMX ,NEQSMX, 
/ NPRMX ,NOPMX ,NIMP1 
OPEN(S.FILE=* ',STATUS="OLD'2 
OPEN(6,FILE='* ',STATUS=' NEW”) 
МАТМХ = 30 

МОАТМХ--16 

МЕОЅМХ = 16 

МРЕМХ =60 

МОРМХ = 2 + ЧРЕМХ 

МъМІМРІ = МРЕМХ +41 

READ (5, * } INFMA T 

WRITE (ж. Y INFMAT 

WRITE (6. * ) ІМЕМАТ 

WRITE (C* ,66) 

WRITE (6,60) 

READ (5, +) NAT ,BOND 

WRITE( + ,70) NAT ,BOND 

WRITE(6,70) NAT ,BOND 

IF (ЧАТ.СТ.МАТМХ) СО ТО 50 

WRITE (+ ,80) 

WRITE (6,80) 

WRITE (+ ,90) 

WRITE (6,90) 

ГО 10 NA=1,NAT 

READ (5, «ЭМЗҮМНІ,СМА»,М2(МА),ХУСМА)», 
/ YV(NAY.ZVI—INA),NEQ¿(NA) 
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10 


20 


30 


40 


Z(NA)=DBLF(NZ(NA)) 

WRITE( x ,100) МА,МЅҮМВІ. (МА ),NZ(NA), 

/ XV(NA)X.YV(NAXZV INA) ,NEQCNA) 
WRITE(6,100)NA,NSYMBL(NA ),NZ(NA), 

/ XV(NA)Y,YV(NA) ,ZV(NA)NEQ(NA) 

CONTINUE 

1E (BOND. EQ. 1. E0) GO TO 40 

WRITE( x ,20) 

WRITE(6.20) 

FORMAT{/’ INPUT ATOMIC COORDINATES ARE IN А”. 
/'NGSTROM. NOW CONVERT THEM TO ATOMIC ОМІГЅ.'/) 
WRITE (* ,110) 

WRITE (6,110) 

WRITE (+ ,90) 

WRITE (6,90) 

DO 30 МА--1,МАТ 

XV(NAJ=XV(NA) * BOND 

YV(NA)=YV(NA)*BOND 

ZV(NA)=ZV(NA) + BOND 

WRITEC ж ,100NA.NSYMBL(NA).,NZ(NA), 

/ XV(NA),YV(NA)ZV(NAY.NEQ(NA) 
WRITE(6,1000NA ,NSYMBL(NA AÜ, NZ(NAÀ), 
/ XV(NAY.YV(NA),ZV(NA),NEQ(NA) 

CONTINUE 

CALL SETEQS 

CALL SYMODS 

CALL CLOSUR 

CALL SCHOEN(ISYM) 

WRITE (* .120)ISYM 

WRITE (6.120)15ҮМ 

STOP 

WRITE C+ ,130) МАТМХ,МАТ 

WRITE (6,130) МАТМХ,МАТ 

STOP 

FORMAT(/14X, жж ж + ж +INPUT DATA + x * * * ж?У) 
FORMAT(14KX,'TOTAL NUMBER OF ATOMS = ",12,".' 
/ ЛАХ BOND LENGTH FACTOR =°.F10.7,1.”,/) 
FORMAT (/14X, ORIGINAL ATOMIC COORDINATES: *) 
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90 


100 
110 
120 


130 


10 
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FORMAT «/" NQ. ОЕ',3Х,'СНЕМІС’, ЗХ ’АТОМІС?, 


/ 6X,'X',8X, Y” 9X,'Z',4X,"EQUIV”, /, 


' ATOMS’ 3X, 'SYMBOL’, 3X "NUMBER') 
FORMAT (2Х,12,5Х,А6,17,3Е10.4.3Х,12) 
FORMAT (/14X ,' PERMUTED ATOMIC COORDINATES; 9 
FORMAT(4X, 十 十 十 十 十 十 ТНІЅ POINT GROUP”, 


/ "IS ,和 4， 十 十 十 十 十 十 3 


FORMAT (//' ERROR STOP: МАХ МО. ОЕ” 


/ "АТОМ5 ALLOWED IST BUT THIS’ 
/ ,' MOLECULE НА5",14,”; REDIMENSION') 


END | 

SUBROUTINE SETEQS 
IMPLICIT REAL *#8(А—Н›,О—7) 
INTEGER + 4 NZ, NEQ 
CHARACTER * 4 NSYMBL ,NSYMBP 
LOGICAL EQUIV,FOUND,MATCH 
DIMENSION NZP(30), NSYMBP(30) ,NL (30) 
DIMENSION FOUND(30).NBRZ(30,20), 


/ РМВЕ (30, 30), NEQT (30) 


COMMONZ/APARM/XV (30. YV (30). ZV (30), Z(30), NZ (30) 
‚МҮМВІ, (30): NEQ(30),KTAU (16), МАТАТ (16,16) 

СОММОМ/СООКГ5/513,30) 

COMMON/DIMENS/NAT ,NDAT 

COMMON /LOGICL/IPRT 

COMMON/MAXDIM/NATMX ,NDATMX, NEQSMX, 

NPRMX ,NOPMX ,NIMP1 

РАТА ?ЕКО.ТНК/0. 000,0, 001D0/ 

ХО--“?ЕЕО 

YO=ZERO 

ZO=ZERO 

WT=ZERO 

МАЗТКТ--1 

DO 10 МА--МАЗТЕТ,МАТ 

ХО-ХО--2ХМАУХУ(МА) 

ҮО--ҰО-Ғ?СМАУ + YV(NAÀ) 

2О0-?20-Е2ХМА» ж ZV(NAÀ) 

WT=WT+Z(NA) 

CONTINUE 


29 


30 
49 


250 


KO=XO/WT 

YO=YO/WT 

ZO=Z0/WT 

IF (DABS(X0). LT. THR) ХО--2ЕКО 

IF (DABS(Y0O). LT, THR) YO=ZERO 

IF (DABS(ZO). LT. THR) ZO= ZERO 

C 20 NA=1,NAT 

XV(NA)=XV(NA)—XO 
YV(NA)=YV(NA)—YO 
ZV(NA)=ZV(NA)—ZO 

IF (DABS(XV(NA)). LT. ТНК) XV(NA)=ZERO 
IF (DABS(YV(NA)). LT. THR) YV(NA)=ZERO 
IF (DABS(ZV (NA)).LT. THR) ZV (NA)=ZERO 
CONTINUE 

NEQT(1)=0 


DO 40 NAI=NASTRT,NAT 


МАВОК =0 

МЕОТЧМА1>»-9 

DO 30 МА2= МАЗТЕТ ,МАТ 

IF (NA1. EQ. NA2) СО ТО 30 

МАВОЕ = МАВОК + 1 

NBRZ(NABOR ,NA1)= NZ(NA2) 

RAB=DSQRT((XV(NA1)— XV (NA2)) * + 2+ (YV СМА) 
--ҮУ(МА2))» *2+ (ZV (NA1)— ZV (NA2)) * +2) 

DNBR(NABOR ,МА1) = КАВ 

CONTINUE 

CONTINUE 

МАВОК5-<МАТ-1 

DO 90 NA1=NASTRT,NAT 

МАІР1=МА1+1 

IF (NA1P1. СТ. МАТ) СО ТО 90 

ГО 80 МА2--МАІРІ,МАТ 

IF (NZ(NA1). МЕ. NZ(NA2)) GO ТО 80 

IF (NEQT(NA2). NE. 0) GO ТО 80 

DO 50 NABOR=1,NABORS 

FOUND(NABÖR) =. FALSE. 

EQUIV =. TRUE. 

DO 70 NABOR1=1,NABORS 


47 


60 
65 


70 
75 
80 
90 


100 
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МТ = NBRZ(NABORI ,NAL? 
RABT=DNBR(NABOR1,NA1) 
MATCH=.FALSE. 

DO 60 NABOR?=:1,NABORS 
IF(FOUNDNABOR2)) GOTO 60 
IF(NBRZ(NABOR2,NA2). МЕ. М2ТОСОТО 60 
IF(DABS(DNBR (NABOR2,NA2)— RABT). 
/ GT.THR) GOTO 60 
FOUND(NABOR2)=, ТЕСЕ. 

MATCH=. TRUE. 

GO TO 65 

CONTINUE 

IF (MATCH) GO TO ?0 

EQUIV =, FALSE. 

GO TO 75 

CONTINUE 

IF (EQUIV?) NEQT(NA2)=NA1 

CONTINUE 

CONTINUE 

WRITE { * ,620) 

WRITE (6,620) 

WRITE (ж ,500) 

WRITE (6,500) 

EQUIY =. TRUE. 

DO 100 МА =1.МАТ 

IF «МЕОТМА). МЕ, МЕО (МА) EQUIV =. FALSE. 
МЕО (МА) = МЕОТСМА) 


CONTINUE 
ЈЕ (EQUIV ) WRITE 5 * ,520) 
IF (EQUIV) WRITE (6,520) 


IF (.МОТ. EQUIV) WRITE (+ ,540) 
IF (, NOT. EQUIV) WRITE (6,540) 
NDA=0 

DO 120 МА--1,МАТ 

IF <ЧХЕОСЧА».С7Т.00 СО ТО 130 
NDA=NDA+1 

NEQ(NA)=NAÀ 

NLNDA=NA 


130 


190 


200 


210 
224 


DO 120 МА2=1.МАТ | 
IF (NEQ(NA2). EQ. МА) NEQ(NA2)=NDA 
CONTINUE 

NL(NDA)=NDA 

CONTINUE 

NDAT=NDA 

IF {NDAT. GT. NDATMX) СО TO 240 
DO 200 NDA=1,NDAT 

NEQS=0 

DO 190 NA 一 上 ,NAT 

IF (NEQ(NA ). NE. NL(NDA)) СО TO 190 
NEQS=NEQS+1 

IF (NEQS.GT, NEQSMX} СО ТО 250 
NATAUNEQS,NDA)= МА 
CONTINUE 

KTAU(NDA))=NEQS 

CONTINUE 

NASHUF=0 

DO 220 NDA=1.NDAT 
NEQS=KTAU{NDA) 

DO 210 NE=1,NEQS 
NA=NATAU(NE,NDA) 

NASHUF= NASHUF—1 
S(1,NASHUF)=XV(NA) 
SO(Z,NASHUF)=YV(NA) 
5(2,МА8НІ7Е)--2У(МА) 
МЕОТ(МАЗНЦГЕЭ--МЕО (МА) 
NZPINASHUF = МАСМА ) 
МҮМВР‹МАЅНОЕ) = МЅҮМВІ(МА)? 
CONTINUE 

CONTINUE 

WRITE (+ ,630) 

WRITE (6.630) 


DO 270 МА =1.М№АТ 


МЕС (NA > = МЕЎТСМА) 

NZ(NA)=NZP(NA) 

МҮМВІ (МА ? = МҮМВР‹МА) 

WRITE (ж ,650) МА, МҮМВІ, (ЧА) ,М№М2(МА), 
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/ 5$(1,144).8(2,ЧА),56(3,ЧА),ЧМЕСО (ЧА) 
WRITE (6,650) NA,NSYMBL(NA),NZ(NA), 
/ 5(1.МА).5(2,МА9),5(2,МА),МЕОСМА) 
270 CONTINUE 
WRITE (»,660) 
RETURN 
240 WRITE (ж ,560) NDATMX,NDAT 
WRITE (6,560) NDATMX,NDAT 
STOP | 
250 WRITE (* ,570) NEQSMX 
WRITE (6,570) NEQSMX 
STOP 
500 FORMAT (//1X,'*'*CALCULATED ATOMIC SYMM 一 
/ "*EQUIVALENCES BASED ON INTERATOMIC °, 
/ *'DISTANCE MATRIX; '*//) 
590 FORMAT(1X,'CALCULATED SYMMETRY EQUIVALENCES' 
/ ,' ARE IN AGREEMENT:,' WITH INPUT ONES. '/) 
540 FORMATO CALCULATED SYMM 一 EQUIVALEMNCES ARE ’ 
/ ,NOT IN AGREEMENT WITH INPUT ONES, 7/8 SO” 
/ ,' CALCULATED EQUIVALENCES WILL ВЕ USED *, 
/ "INSTEAD OF THE INPUT ONES. '/› 
560 FORMAT (//’ ERROR STOP, МАХ # OF UNIQUE ATS’, 
/ * ALLOWED 15',14,/.' BUT THIS MOLECULE ', 
) ‘REQUIRES ,l4,' : REDIMENSION') 
570 FORMAT (//* ERROR STOP: МАХ KTAU ALLOWED IS' 
/ Аа, BUT THIS MOLECULE REQUIRES'/ 
/ °’ MORE EQ ATS PER NDA; REDIMENSION”) 
620 БОЕМАТ(//14Х,% «% + ж +» OUTPUT DATA + + + = ж #7) 
630 FORMAT(/14X,'PERMUTED ATOMIC COORDINATES: '*// 
1 7“МӘ.ОЕ?.3Х.ЖХНЕМІС,3Х, АТОМІС ,6Х,7Х7,8Х 
/ ,'Y*,9X,'Z',4X,'EQUIV',/,1X,'ATOMS',3X , 
/ ‘SYMBOL',3X.,'NUMBER') 
650 FORMAT (2X,12,6X,A6,16,3F10. 4,3Х,12) 
660 FORMAT (//° TAKE MUCH TIME, WAIT PLEASE! *//) 
END 
SUBROUTINE ADDOÖOP(ANGLE ,ВОТАХ ,1ІЧУ, 
/ | AL,BE,GA,RMT,ADDED) 
IMPLICIT REAL x 8 (A—R,O—2Z) 
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29 


30 


INTEGER * 4 М2,МҒО 
CHARACTER » 4 NSYMBL 
LOGICAL ADDED,INVINVRNT 
DIMENSION ROTAX(3),RMT(3,3) 
СОММОМ/АРАЕМ/ХУ<302,ҮУ(30).2У<30>, 

/ Z(30),NZ(30), NSYMBL(30) ,NEQ(30), 

/ КТАТЈ(16),МАТАО (16,16) 
COMMON/COORDS/S(3,30) 
COMMON/DIMENS/NAT,NDAT 
СОММОМ/МАХПИМ/МАТМХ,МрАТМХ,МЕО5МХ. 


/ МРЕМХ,МОРМХ,МІМРІ 
СОММОМ/ОРЕКМ5/БАМС551203,КАХЕ5(3,120), 

/ АРНА (120), BETA(120) ,GAMMA (120), 

/ ЕМАТ5{‹3.3,120) 


COMMON/SYMDIM/NOPERS,NPROPR ,NIMPRP,MAJOP， 
/ MAJAXN MAJCN ,MAJAX,MAJPL,MINAX,NINVER， 
/ NREFLS,NSIGMH,ISIGMH,NSROTS 

DATA 2ЕКО,ТНЕ ,ONE ,PI/0. 0D0, 0. 001100, 

/ 1. 000,3. 14159265358979D0/ 

ADDED =. FALSE. 

IF (INV) GO TO 10 

NEWOP=NPROPR+1 

IF (NEWOP. GT. NPRMX) GO TO 80 

GO TO 20 

NEWOP=NPRMX+NIMPRP+1 

IF (NEWOP. GT. NOPMX) СО TO 80 

NA=1 

ГО 30 NDA=1.NDAT 

NEQS=KTAU(NDA) 

CALL PERMUT(NEQS,S(1,NA),RMT,INVRNT) 

IF (. NOT. INVRNT) RETURN 

NA=NA+NEQS 

CONTINUE 

IF <. NOT. INV) NUMCHK —NPROPR 

IF (INV) NUMCHK =МІМРЕР 

IF (NUMCHK. EQ. 0) GO ТО 50 

IF (. NOT. INV} NFRST=1 

IF (INV) МҒЕ5Т--МІМРІ 
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NLAST=NFRST-+NUMCHK—1 
РО 40 NOP~NFRST ,NLAST 
IF(DABS(ANGLE —RANGS(NOP)>). GT. THR) СОТО 40 
ОПОТ = DSQRT(DABS( ROTAX (1) * RAXESU МОР) + 
IROTAX (D) » RAXES(2,NOP)+ROTAX(3) + RAXESG3, NOP) >) 
IF (DABS(SQDOT—ONE). GT. THR? GO TO 40 
RETURN 
40 CONTINUE 
50  ADDED=. TRUE. 
NOPERS=NOPERS+1 
IF (. МОТ. 1ЧУ) NPROPR=NPROPR +1 
IF ( NOT. INV) СО ТО 60 
NIMPRP=NIMPRP+1 
IF LANGLE. EQ. ZERO) NINVER=NINVER+1 
IF (ANGLE. EQ. PI) NREFLS=NREFLS+1 
IF (ANGLE. NE. ZERO. AND. ANGLE. NE. PI) 
{ NSROTS=NSROTS+1 
60 CONTINUE 
RANGS(NEWOP)= ANGLE 
ALPHALNEWOP)= AL 
BETA МЕМОР) =ВЕ 
САММАМЕМОР)=СА 
ГО 70 1=1,3 
ВАХЕЅ(1, МЕМОР= ROTAX(T) 
DO 79 1--1.3 
RMATS(] ,J.NEWOP)=RMT(.,J) 
70 CONTINUE 
RETURN 
88 WRITE i% ,500) NPRMX 
WRITE (6,500) NPRMX 
STOP 
500 FORMAT(//' ERROR STOP, MAX NUMBER ОҒ PROPER’ 
/ ,' QR IMPROP SYMMETRY 一 OPRATIONS ALLOWED’ 
/ p’ 13’',14,’ : DIMENSION EXCEEDED IN ADDOP”) 
END 
SUBROUTINE EULERLANGLE,ROTAX,INV, 
/ ALPHA,BETA GAMMA RMAT) 
IMPLICIT REAL *8 (А-Н,О0--7) 
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LOGICAL INY 
DIMENSION RMAT(3,3),ROTAX(3) : 
DATA ?ЕКО,.ТНВ,ОМЕ.РІ,ТУҒОРІ/0. 000,0. 00100,1. ро 
,3.14159265358979Д0.68. 28318530717558Г0/ 
А = 2ЕВО 
В= ЕКО 
Т=7ЕКО 
X=ROTAX(1) 
Ү=КОТАХ (2) 
2--КОТАХ(3) 
БАХ-рЗОКТСХ» Х--ҮжҮ--2% 2) 
IF (RAX.LT. THR) СО ТО 80 
= Х/КАХ 
Y=Y/RAX 
Z=Z/RAX 
IF (DABS(X). LT. THR) X=ZEFO 
IF (DABS(Y). LT. THR) Y=ZERO 
IF (DABS(Z). LT. THR) Z= ZERÜ 
NMOD=ANGLE/TWOPI 
ANGLE=ANGLE— DBLE(NMOD) + TWOPI 
IF (ANGLE. GT. PD ANGLE= ~ (TWOPI— ANGLE} 
IF (ANGLE.LT, —PD ANGLE= TWOPI+ ANGLE 
IF(Z. GT. ZERO)? GO TO 10 
IE (Z. EQ. ZERO. AND. Y. GT. ZERO) GO ТО 10 
IF (2. EQ. ZERO. AND. Y. EQ. ZERO. AND. 
X. GT. ZERO) GO ТО 10 


X= 一 X 
Ү--Ү 
Z= —7 


ANGLE = -- ANGLE 

IF (DABS(DABSLANGLE)— FI). LT. THR) ANGLE =PI 
IF(DABS(ANGLE?). LT. THR) ANGLE =ZERO 
XYPROJ=DSQRT(X z X+ Y * Y) 

ROUTAX(1 = X 

ROTAX(2)= Y 

ROTAX(32)= Z 

IF (ХҮРКОЈ. EQ. ZERO) GO ТО 30 

IF (Y. EQ. ZERO. AND. X. LT. ZERO) А--РІ 
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IF (Y. EQ. ZERO) GO TO 20 

A= -РрАТАМ№(—Ү,Х) 

CONTINUE 

B=DATAN2(XYPROJ ,Z) 

CONTINUE 

T=ANGLE 

SA=DSIN(A) 

CA=DCOS(A) 

SB-=DSIN (B) 

CBE =DCOS(B} 

ST =DSIN(T} 

СТ=0С05 (Т) 

ВЕТА = РАСОЅ(ОМЕ — (ONE—CT) * SB * SB) 

IF (BETA.LT.THR) СО ТО 40 

IF ({PI- ВЕТА). LT. ТНК GO ТО 50 

XN1=SA # CBx (ONE—CT) 

XN2=CA = 5T 

XD1=CA *СВ+* (ОМЕ-СТ) 

XD2 一 SA < ST 

ALPHA = DATAN2CXN1— XN25), (XDI-+ XD2)) 
GAMMA= DATAN2((XN1+XN2, (XD2— XD1)) 
GO TO 60 

ALPHA=ZERO 

BETA =ZERO 

САММА = АМСІ_Е 

СО ТО 60 

АТРНА = —DATAN2(X ,Y) 

ВЕТА --РІ 

GAMMA = — АРНА 

SINA = р5]1ЧСАГРНА > 

COSA=DCOSCALPHA?) 

SINB=DSIN(BETA) 

COSB=DCOSCO(BETA) 

SING =DSIN (GAMMA) 

COSG=DCOS(GAMMA) 

КМАТ(1,12- COSA + COSR + COSG —SINA » SING 
RMAT(L,2)= SINA # COSB * COSG --СОЗА x SING 
RMAT(1,3)= — SINB * COSG 


ЕМАТ(2,12---СО5А * COSB + SING 一 SINA * COSG 
RMAT(2,2)= —SINA * COSB * SING+ COSA. + COSG 
ВМАТ(2,32- SINB * SING 
RMAT(3,1)= СОЗА * SINB 
RMAT(3,2)= SINA * SINB 
RMAT(3,3)= COSB 
IF (.МОТ.ІМУЭ RETURN 
DO 70 1=1,3 
рО 70 J=1,3 
70 RMAT(L D= —RMAT(C&,J) 
RETURN 
80 WRITE (ж ,500) 
WRITE (6,500) 
STOP 
500 FORMAT (//" ERROR STOP; EULER ANGLE’ 
/ ,' ROUTINE WAS CALLED WITHOUT SPE”, 
FPCIFICATION'/'OF THE ROTATION AXIS’) 
END 
SUBROUTINE PERMUT(NEQS,S,RMAT, ,INVRNT) 
IMPLICIT REAL * 8 (A—H,O—2) 
LOGICAL INVRNT,MATCH 
DIMENSION T(3),RMAT(3,3),S(3,30),MATCH(16)5 
DATA ZERO,THR(/0. 000,0. 001D0/ 
INVRNT=. TRUE. 
DO 10 NA=1,NEQS 
10 МАТСН(МА)--.ЕАІ1.5Е. 
DO 50 NA1=1,NEQS 
DO 20 I=1,3 
т<) =ZERO 
DO 20 J=1,3 | 
20 T(I=T(D +RMAT(1,J) 50,МА1) 
pO 30 NA2=1,NEQS 
IF (MATCH(NA22) GO TO 30 
XD=T¿(1)—S(1,NA2) 
ҮГр--Т(2)-5(2.МА2) 
ZD=T(3)—S(3,NA2) | 
RAB=DSQRT (XD * XD+ YD < YD+ ZD + ZD) 
IF (RAB.LT. THR) GO TO 40 


30 


40 
50 


26 


CONTINUE 
INVRNT =. FALSE. 
RETURN 
MATCHI(NA2)=., TRUE., 
CONTINUE 
RETURN 
END 
SUBROUTINE SYMOPS 
IMPLICIT REAL * 8(4—H,0—Z} 
CHARACTER + 4 МЅҮМВІ. 
INTEGER #4 NZ.NEQ 
LOGICAL ADDED; INY ,ORIGIN ,ROTATD 
DIMENSION DIF1(3), DIF2(3}, RMT (3.3), AXES(3,3) 
DIMENSION TAX(3, 400). T{(3) ORIGIN (30) 
СОММОМ/АРАЕКМ/ХУ(30),ҮУ(30)9.2У%30),2(309.М2 309 
/ ,NSYMBL(30),NEQ(30),KTAU(16),NATAU(16,16) 
COMMON/COORDS/S(3.30) 
COMMON/DIMENS/NAT.NDAT 
COMMON/MAXDIM/NATMX, ,NDATMX.NEQSMX, 
z МРКМХЬМОРМХ,МІМРІ 
СОММОМ/ОРЕЕМЗ/КАМС855120>.КАХЕ563,120». 
ГАТРНА (120). BETA(120. GAMMA(120}.RMATS (3,3,120) 
COMMON/SYMDIM/NOPERS.NPROPR ,МІМРЕР, 
МАЈОР,МАЈАХМ.МАЈСМ.МАЈАХ .МАЈРІ.,МІҸАХ 
/.NINVER,NREFLS,NSIGMH, ,ISIGMH . NSROTS 
БАТА АХҒ8/1.000.0, 000,0. 0ро, о. 0DG. 
/ 1. 000,0. Ор0.0. 0009,0. Ор0.1. 000/ 
DATA ZERO ,THR,ONE .PI,TWOPL/G. оба, 
/ 9,0017%.1. 00,3. 14159265358979D0, 
/ 6. 28318530717958D0/ 
МОРЕЕ5--0 
МРКОРК--0 
NIMPRP=0 
NINVER 一 0 
NREFLS=0 
МБІСМН--0 
NSROTS=0 
КТАОМХ = 0 
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30 


/ 


/ 


MAIOP= 1 

MAJCN=1 

MAJAXH=1 

MAJAX=3 

MAJPL=MAJAX+1 

MINAX=MAJAX—1 

МТАХМХ = 400 

IF (MAJPL. EQ. 4) МАЈР =] 

IF (МІМАХ. ЕС. 0) МІМАХ = 3 

DO 10 МА =1,МАТ 

ORIGIN (МА? =. FALSE. 

R=DSQRT(S(1,NA) * 541,МА)+542,.№А) * 

5(2,МА)--5(3,МА) * 853,МА») 

IF (R. LT. THR) ORIGIN(NA) =. TRUE. 

CONTINUE 

ANGLE=ZERO | 

CALL EULER (ANGLE,AXES(1,MAJAX), 

.FALSE, ,АГ,ВЕ,СА,ЕМТ? 

CALL ADDOP(ANGLE,AXES(1,MAJAK). 
. FALSE. AL, BEGA, RMT.ADDED)}) 

CALL EULERC(ANGLE, AXESU,MAJAX?, 
ТЕЛЧЕ. .А1..ВЕ,СА.КМТ)» 

CALL ADDOP(ANGLE,AXESC,MAJAX), 
. TRUE. .AL.BE,GA ,RMT., ADDED) 

NASTRT=1 

NA=NASTRT 

ГО 20 NDA=NASTRT,NDAT 

IF(KTAU(NDA). LE. KTAUMX) СОТО 20 

KTAUMX—=KTAU NDA) 

МРАК = МА 

20 МА = МА+КТАЦ (МОА? 

МА = NDAK 

IF (KTAUMX. GE. 3) GO ТО 90 

IF (KTAUMX. ЕО. 2) СО ТО 70 

DO 30 МА= МАЅТЕТ ,МАТ 

IF (ORIGIN(NA)) СО ТО 30 

СО ТО 40 

CONTINUE 


97 


40 


50 


60 


70 


58 


СО ТО 450 
CALL МОГКОТС(5(1,МА»,АХЕВ(1,МА)АХ), 
/ 5,МАТ.КОТАТР) 
МАРІ--МА--1 
DO 50 МВ=МАРІ.МАТ 
IF (5(МАЈРІ,, NB). МЕ. ZERO. ОК. 
/ SCMINAX,NB), МЕ. ?ЕКОЭСО ТО 60 


CONTINUE 

ANGLE=PI 

CALL EULER (АМС Е.АХЕЅ(1,МАЈАХ), 
/ .FALSE. ,AL ,BE ,GA.RMT) 


CALL ADDOP(ANGLE,AXESC1.MAJAX), 
/ .FALSE. ,AL,BE.GA.RMT,ADDED) 

IF С NOT. ADDED) GO ТО 410 

MAJCN=2 

MAJAXN=2 

MAJOP=NPROPR 

СО ТО 410 

T(MAJAX)=ZERO 

T(MAJPE)=S(MAJPL,NB) 


 T(MINAX)=S(MINAX.,NB) 


CALL МОЬКОТСТ,АХГ&(1,МЇЧАХ)›,5,МАТ.,КОТАТРр) 
CALL MOLROTIAXES(1 ,MAJAX), | 
/ АХЕЗВСІ,МАТРІ./),5,МАТ.КОТАТТФ) 


СОТО410 

CONTINUE 

CALL MOLROT(S(1,NA), AXES(1.MAJAX}, 
/ 5,МАТ,КОТАТІ) 
NB=NA+1 


T(MAJAX)=ZERO 

T(MAJPL)=S(MAJPL,NB) 

T(MINAX)=S(MINAX.NB2 

CALL МОГКОТ СТ ,АХЕЗ(1,МІМАХ,5,МАТ , КОТАТЮ) 
Т‹МАЈРІ, = ZERO 

Т‹<МАЈАХ) = — (5‹МАЈАХ, МА) +ҘСМАЈАХ,МВ)) 
ТІ(МІМАХ»- -(5(МІМАХ,МА)--5ІМІМАХ,МВ)) 
CALL МОПКОТ(Т.АХЕ58(1,МА)АХ),5,МАТ,КОТАТӘ) 
IF С. NOT. ROTATD) CALL MOLROT(AXES 


/(1,МА]АХ),АХЕ$(1,М1МАХ),5,ЧАТ,КОТАТО»› 
DIF1(1)= S(1,NB) —S(1,NA) 
DIF1(2)= 5(2,М8)--5(2,МА) 
DIF1(3)= S(3,NB)—S(3,NA) 
NC=1 
DO 80 NDA=1 ,NDAT 
IF (NDA.LE.NDAK) СОТО 80 
IF (KTAU(NDA). NE. 2) GO TO 80 
NCP1=NC+1 
DIF2(1)= S(,NC)—S(1,NCP1) 
DIF2(2)= S(2,NC)—S(2,NCP1) 
DIF2(3)= S(3,NC)—S(3,NCP1) 
Т(1) = DIF1(2) + DIF2(3) —DIF1(3) * DIF2(2) 
T(2)—= —DIF1(1) + DIF2(3)+DIF1(3) * DIF2(1) 
T¿(3)y= DIF1(1) + DIF2(2) —DIF1(2) «ІМЕ2І1) 
TMAG=DSQRT(T(1) * T(1y +-T(2) + T(2y+ T(3) + T (3)) 
IF CTMAG. LT. THR) GO TO 80 
CALL MOLROT(T,AXES(1.MAJAX),S,NAT.,ROTATD) 
ANGLE=PI 
CALL EULER (ANGLE, AXES(1,MAJAX), 
/ , FALSE. ,AL ,BE,GA,RMT) 
CALL ADDOP(ANGLE,AXES(1,MAJAX), 
/ FALSE. ,AL,BE GA,RMT,.ADDED) 
IF i. NOT. ADDED) GO TO 410 


MAJCN=2 

MAJAXN=2 

MAJOP= NPROPR 

GO ТО 410 

NC=NC+KTAUWCNDA) 

ANGLE=FI 

CALL EULER (АМОІ,Е.АХЕВ(1,МАТАХ), 
/ , FALSE. ,AL ,BE,GA ,RMT) 


CALL ADDOP(ANGLE,AXES(1,MAJAX), 
/ ,FALSE.,AL,BE,GA,RMT,ADDED) 
ІЕ(. МОТ. ADDED) CALL MOLROT(AXES 
Ла.мАРАХЭ.АХЕЗО ,МІМАХ).8.МАТ,КОТАТІ» 
IF (. NOT. ADDED) СО ТО 410 
MAJCN=2 


MAJAXN=2 
MAJOP=NPROPR 
GO TO 410 
90 МАК-МА-ҒКТАУуУМХ-і1 
МАКМі-МАК-і1 
NTAXES=0 
DO 130 МА1--МА,МАК 
IF (ORIGIN(NA1)) GO ТО 130 
NT=NTAXES+1 
IF (NT. GT. NTAXMX) GO ТО 460 
DO 100 1=1,3 | 
100 ТАХС.МТ>2-564,МА1) 
IF (NTAXES. ЕО. © GO ТО 120 
DO 110 МТЕ--1,МТАХЕ65 
С1= ТАХ(?,МТ) *TAX(3,NTE)— TAX(3,NT) + ТАХ (2,NTE) 
С2= – ТАХ (1,МТ) + ТАХ(3,МТЕ) +ТАХ(3,М№Т) + 
/ ТАХ(1.МТЕ? 
C3= ТАХ(І.МТ) + ТАХ(2,МТЕ) ТАХ (2, МТ) + TAX(1, NTE?) 
СМАС--ПЗФОКТССІ яСІ-ЕС2 яС?-ЕС3 + C3) 
IF «СМАС.1/Т.ТНЮ) СО ТО 130 
110 CONTINUE 
120 МТАХЕ%-МТ 
130 CONTINUE 
NTADD=0 
DO 150 NTA=2,NTAXES 
NTEST=NTAXES+NTADD 
NT 一 NTEST 二 1 
IF (NT. GT.NTAXMX СО ТО 460 
ТАХСІ,МТ) = ТАХ (2,1) # ТАХ (3,М№ТА? 


/ -ТАХ(3,1) + ТАХ (2,М№МТА) 
TAX(2,NT)= -ТАХ{1,1) + ТАХ(3, МТА) 
/ +ТАХ(3,17) + ТАХ(1.МТА) 
ТАХ(3.МТЭ2-- ТАХ (1,1) + ТАХ (2, МТА? 
/ --ТАХ(2,1)»ТАХ(1.МТА> 


рО 140 МТЕ--1,ЧТЕ8Т 

С1= ТАХ(2.МТ) + TAX(3,NTE) —TAX(3,NT) « TAX(2,NTE) 
С2-<--ТАХ(1.МТ)» TAX(3,NTE)+TAX(3,NT) * 
/ TAXGQ,NTE) 
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С3-- ТАХ(1.МТ) «ТАХ(2,МТЕ)-ТАХС(2,МТ» « ТАХ(І, МТЕ) 
CMAG=DSQRT (C1 = C1+C2 + С2--С3 x СЗ) 
IF (CMAG.LT. THR) СО ТО 150 
140 CONTINUE 
NTADD=NTADD+1 
150 CONTINUE 
NTAXES=NTAXES+NTADD 
МАР1=МА+1 
DO 200 МАї= МАР1,МАКМ1 
DO 160 1--1.3 
160 DIFIƏ(D=SCO,NA)—S(LNA1) 
NAIPI=NAL+} 
DO 190 МА2--МАІРІ,МАК 
DO 1701--1.%7 
170 ІМЕ2()-5 1.МА3-50.МА2) 
NT=NTAXES+1 
IF (NT. GT. NTAXMX) GO TO 460 
TAK(,NT)= ЮЇГЕ1(2) + DIF2(3) —DIF1(3) » DIF2 (2) 
TAX(2,NT)= —DIF1(1) + DIF? +DIF1(3) + DIF2(t) 
ТАХ(З3.МТЭ-- МЕ1(1) # DIF2(2) — DIF1(2) + DIF2(1) 
ГЮ 180 NTE=1,NTAXES 
Сіз: TAX(2,NT) x TAX(3,NTE) —-TAX(3,NT) «ТАХ(2,МТЕ) 
С?----ТАХ(1.МТ) + TAX(3,NTE)+TAXG,NT) + 
/ ТАХ(ҺКТЕ) 
C3= ТАХ(1.МТЭ + ТАХ(,МТЕ ТАХ (2,МТ) «ТАХСІ,МТЕ) 
CMAG=DSQRT (C1 + C1+C2 + С2--С3 + С3) 
IF (CMAG.LT. THR) СО ТО 190 
2180 CONTINUE 
МТАХЕ5-МТ 
NTL=NTAXES 
NT=NTAXES+1 
IF (NT. GT. NTAXMX) СО ТО 460 
ТАХО.МТУ-ТАХ(2,1) «ТАХ(З,МТІ) 


/ --ТАХ(<3,1) » TAX(Z,NTL) 
ТАХ(С2.МТ)---ТАХ(1,12 * TAX(3,NTL) 

/ --ТАХ(3,10« TAX(1,NTL) 
TAX(3,NT)= TAX(1,1) «ТАХ(2,М71.) 

/ —TAX(2,1) * TAX(1,NTL) 
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DO 185 NTE=1,NTAXES 
С1= ТАХ(2,МТ) ж ТАХ(З,МТЕ)-ТАХ(З,МТ) «ТАХ(2,МТЕ) 
С2----ТАХ(1,МТ2» TAX(3,NTE)+TAX(4, NT} є 
4 ТАХ(1,МТЕ) 
C3= ТАХ(1,МТ)» ТАХ(2,МТЕ)-ТАХ(2,МТ)»ТАХ(1,МТЕУ» 
CMAG=DSQRT(C1 x C1+C2 + C2+C3 x СЗ) 
IF (CMAG.LT. THR) GO ТО 190 
185 CONTINUE 
NTAXES=NT 
140 CONTINUE 
200 CONTINUE 
NBIS1 ~=NTAXES 
DO 230 NA2 一 NAP1,NAK 
МТ--МТАХЕ6--1 
IF (NT. GT. МТАХМХ) СО ТО 460 
DO 210 I=1,3 
210 ТАХСЧ,МТ2-50,МА9--6(1,МА2)» 
DO 220 NTE=1,NTAXES 
Сі-- ТАХ‹2,М№Т) » ТАХ (3,МТЕЎ ТАХ (3,МТ) + TAX (2,NTE) 
С2== -ТАХ(1,МТ) ж TAX(3,NTE)+TAX(3,NT) + 
/ ТАХ(1,МТЕ? 
C3= ТАХ(І,М№ТУ « ТАХ (2,МТЕ) ТАХ (?,МТ) + TAX(C ,NTE) 
СМАС = DSQRT(C1 + C1+C2 x C2+-C3 ж C3) 
IF (CMAG. LT. THR) СО ТО 230 
220 CONTINUE 
МТАХЕЗ-МТ 
230 CONTINUE 
NBIS2= NTAXES 
IF (NBIS1. GE. NBIS2) GO TO 28 
NTADD=0 
NB2M1= NBIS2—1 
DO 250 МТА = NBIS]1 ,NB2M1 
NTAP1=NTA 十 1 
DO 250 МТВ--МТАР1,МВ182 
МТЕ5Т-«МТАХЕ8--МТАПрО 
МТ = МТЕЅТ +1 
IF (NT. GT. NTAXMX) СО ТО 460 
ТАХ‹ЧІ,МТ) = ТАХ(2, МТВ) + ТАХ (3, МТА) 
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240 
290 


260 


270 


/ --ТАХ(З,МТВ) «ТАХ(2.МТА) 


/ +TAX(3,NTB) «ТАХ(1.МТА) 


ТАХ(3.МТ)- TAX(1,NTB) + ТАХ(2,МТА) 


/ --ТАХ(2.МТВ) + ТАХ(1,МТА) 


DO 240 МТЕ--1.МТЕЗТ 
Сізге ТАХ(2,МТ)» TAX(3,NTE) -TAX(3,NT) «ТАХ(2.МТЕ) 
С?= ТАХ (1,МТ) «ТАХ(З,МТЕ)-ҒТАХ(З,МТ;х 


/ TAX(1,NTE) 


С3-- TAX(1,NT)* TAX(2,NTE)—TAX(2,NT) + TAX(L,NTE) 
CMAG=DSQRT(C1 * С1-ҺС2 * С2-ЕСЗ + C3) 

IF (CMAG.LT. THR) GO TO 250 

CONTINUE 

NTADD=NTADD+1 

CONTINUE 

NTAXES=NTAXES+NTADD 

CONTINUE 

МТМХ= 1 

DO 294 М--1.7 

NORDR =9— N 

ORDR= DBLE (NORDR) 
ANGLE = TWOPI/ORDR 

DO 280 МТ--1.МТАХЕ5 

CALL EULER(ANGLE,TAX(1 NT),. FALSE. , 


/ АГ..ВЕ,СА,КМТ) 


CALL ADDOP(ANGLE,TAX(1,NT),.FALSE., 


/ АІ .ВЕ .GA,RMT ,ADDED) 


IF (.МОТ. ADDED) СО ТО 280 

IF (NORDR. LE. MAJAXN) СО ТО 270 
NTMX=NT 

MAJCN=NORDR 

MAJOP=NPROPR 

MAJAXN=NORDR 

IF (NORDR. LE. 2) GO TO 280 

ANGLE = —ANGLE 

CALL ЕІЛ.ЕНСАМСІ.Е,ТАХ(1,МТ),. FALSE., 


/ AL,BE ,GA,RMT) 


CALL ADDOP(ANGLE,TAX(1,NT), .FALSE. , 
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300 


310 
320 
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/ 


/ 


AL,BE,GA,RMT,ADDED) 
CONTINUE 
CONTINUE 
DO 320 N= 1,12 
NORDR=13—N 
IF (NORDR. EQ. 2) GO ТО 320 
ORDR=DBLE(NORDR) 
ANGLE=TWOPI/ORDR— PI 
DO 210 NT=1,NTAXES 
CALL EULER(ANGLE,TAX(1,NT),. TRUE., 
АГ,ВЕ,СА.КМТ) 
CALL ADDOP(ANGLE,TAX(1,NT),. TRUE., 


/ AL,BE ,GA,RMT,ADDED) 


IF (.МОТ. ADDED) GO TO 310 

IF (NORDR.LE.MAJAXN) GO TO 300 
MAJAXN=NORDR 

IF (4+ (NORDR/4151. NE. NORDR2 GO TO 300 
NTMX=NT 

MAJOP=NPRMX + NIMPRP 

IF (NORDR. LE, 2) СО ТО 310 
ANGLE= —ANGLE 

CALL EULER(CANGLE,TAX(1,NT),. TRUE., 


/ АТ.ВЕ,СА.ЕМТ 
CALL АПООР‹АМСІЕ,ТАХ(1.МТ),. TRUE., 
/ AL BE .GA,RMT,ADDED) 
CONTINUE 
CONTINUE 


IF (МАТСЫ. EQ. 3. AND. NPROPR. EQ. 12. АМР. 


/ МІМРЕР. EQ. 0) MAJOP=NPROPR 


IF (MAJCN. EQ. 3. AND. NPROPR, EQ. 12. AND. 


í МІМРКР. EQ. 122 MAJOP=NPROPR 


NPRROT =NPROPR —1 

NIMROT =NIMPRP 

МІМ5Т--МІМРІ 

IF (МІМУЕК. EQ. 1) МІМЕОТ--МІМРЕР-1 
IF (NINVER. EQ. 1) NIMST =NIMST +1 
І(1)-КАХЕЗО1,МАТОР) 
T(2)=RAXES(2,MAJOP) 


T3)—=RAXES(3, MAJOP) 
CALL MOLROT(T ,АХЕЅ(1,МАЈАХ),5, NAT,ROTATD) 
IF (NPRROT.GT. 0) 
/ CALL МОГЕОТ (Т,АХЕЅ$(1,МАЈАХ?,, 
/ БАХЕ5(1,2).МРЕКОТ,КОТАТ) 
IF (NIMROT. GT. 0) CALL MOLROTT ,AXES 
Ға МАТАХ).КАХЕ5(1,МІМ5Т»,МІМЕОТ.КОТАТГ) 
DO 330 NOP=1,NPROPR 
IF(DABS(RAXES(MAJAX,NOP)). LT. THR) СОТО 340 
330 CONTINUE 
NFRST =NIMP1 | 
NLAST=NFRST+NIMPRF—1 
DO 335 NOP=NFRST,NLAST 
IF(IDABS(RAXES(MAJAX,NOP)). LT. ТНК) СОТО 340 
335 CONTINUE 
CO TO 350 
340 T(MAJAX1=ZERO 
T(MINAX)=RAXESC(QMINAX,NOP) 
T(MAJPL)=RAXES(MAJPL,NOP2) 
СО ТО 370 
350 DQ 360 HB=NA МАК 
T(MAJAX)=ZERO 
T(MINAX=S(MINAX,NB) 
T(MAJPL)=S(MAJPL,NB; 
TMAG=DSQRT(T(1) + T(1)+ T(2) < T(2)+T(3)+* Т(3)) 
IF (TMAG.GT. THR) СО ТО 370 
360 CONTINUE 
СО ТО 470 
370 CALL МОБОТСТ,АХЕ5ӨІ,МІМАХ).5.МАТ.КОТАТІ) 
IF (NPRROT. GT. 0) CALL MOLROT¿T,AXES 
/ (I,MINAXY,RAXES(1,2 2 NPRROT ,ROTATD) 
IF (NIMROT. GT. 0) CALL MOLROTIT, AXES 
F(U MINAX>.RAXES(1,.NIMST?.,NIMROT,ROTATD?) 
NUMPR =NPROPR 
МІ/МІМ--МІМРЕР 
NOPERS=0 
NPROPR=0 
NIMPRP=0 


NINVER =0 
NREFLS=0 

NSROTS=0 

DO 380 МОР=1,МОМРЕ _. 

CALL EULER(RANGS(NOP),RAXES(1, NOP), 


/ , FALSE. ,AL ,BE,GA .RMT) 
CALL ADDOP(RANGS(NOP),RAXES(1,NOP), 
/ .FALSE. ,AL,BE,GA,RMT,ADDED) 


380 CONTINUE 
IF (NUMIM. EQ. 0) СО ТО 400 
МъМЕКТ = МІМРІ 
NLAST=NFRST+NUMIM -1 : 
DO 390 МОР--МЕК5Т,МІ.АЗТ 
CALL EULER(RANGS(NOP),RAXES(1,NOP), 


/ . TRUE. ,AL ,BE,GA,RMT) 
CALL ADDOP (КАМОЗ(МОР) RAXES(1,NOP), 
/ . TRUE. ,AL,BE.GA ,RMT,ADDED) 


390 CONTINUE 
400 CONTINUE 
GO TO 420 
410 АМСІЕ=РІ 
CALL EULER (ANGLE,AXES(1.MINAX), 
/ ,FALSE. ,AL ,BE,GA,RMT) 
CALL АОГОРСАМСІ,Е,АХЕ5(1,МІМАХ», 
/ .FALSE. ,AL.BE,GA ,RMT,ADDED) 
CALL EULER(ANGLE, AXES(] ,MAIJPL), 
/ .ҒАІ.5Е.,АІ..ВЕ,СА,ҚМТ>» 
CALL АРГОРСАМСІЕ, АХЕЅ(1,МАЈРІ», 
1 .ЕА1.5Е. ,АІ,ВЕ,СА,ЕМТ,АрреЕр) 
АМСІЕ = РІ 
CALL EULER АМСІЕ,АХЕЅ(і,МАЈАХ), 
/ . TRUE. ,А1.,ВЕ,СА.КМТ) 
CALL АррОР‹АМСІЕ,АХЕЗ(1,МАЈАХ?, 
/ . TRUE. ,AL,BE,GA,RMT ,ADDED) 
CALL EULERCANGLE, AXES(1,MINAX), 
/ .TRUE. ,AL ,BE ,GA.,RMT) 
CALL ADDOP (ANGLE ,AXES(] ,MINAX), 
/ . TRUE. ,AL ,BE ,GA,RMT ,ADDED) 
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CALL EULER (ANGLE ,AXES(1,MAJPL), 
/ . TRUE. ,AL ,BE ,GA ,RMT》 
CALL ADDOP(ANGLE ,AXES(1,MAJPL), 
/ .TRUE. ,AL ,BE,GA,RMT,ADDED) 
420 ТЕ (NIMPRP. EQ. 0) GO TO 440 
NFRST=NIMP1 
NLAST 王 NERST 十 NIMPRP 一 1 
DO 430 NOP=NFRST,NLAST 
IF БАБ5(ОМЕ-ВАХЕЗМАЛАХ,МОР)). GT. THR) СОТО 430 
IF (DABS(PI— DABS(RANGS(NOP))). GT. THR? СОТО 430 
NSIGMH=1 | 
ISIGMIH = МОР | 
430 CONTINUE 
440 CONTINUE 
ЕЕТІЛЕМ 
450 WRITE (» 500) 
WRITE (6,500) 
STOP 
460 WRITE (» ,510) МТАХМХ 
WRITE (6,510) МТАХМХ 
STOP 
470 WRITE (+ .5202 
WRITE (6,520) 
STOP 
500 FORMAT(//' ERROR STOP; ALL ATOMS' 
/ ,' ARE AT THE ORIGIN’) 
510 FORMAT(//' ERROR STOP, MAX МОМВЕК' 
/ t OF TEST AXES ALLOWED 15414. 
/' 1+ DIMENSION EXCEEDED IN SYMOPS’). 
500 FORMAT (//" ERROR STOP, MOLECULE CANNOT ВЕ” 
/ORIENTED PROPERLY’/’ IN MAJAX ,MINAX PLANE’) 
END 
SUBROUTINE MOLROT (AXI,AXF,S,NVEC,ROTATD) 
IMPLICIT REAL < 8 (А-Н.О-2) 
LOGICAL ROTATD 
DIMENSION АХ‹3›),АХЕ(3),КОТАХ‹3), 
/ ЕМТ (3,3),5(3,30),Т<3) 
ГАТА ZERO ,THR,P1/0. 000,0. 001р0, 


67 


/ 3. 1415926535897900/ 
ROTATD=.FALSE. 
RI=DSQRT (АХ1(1) * AXI(1) +АХІ(2) + АХГ(2) 


/ -МАХІ(3) + АХІ‹3)) 
RF—=DSQRT(AXF(1) + АХЕ(1)-ҒАХЕ(2) + АХЕ(2) 
/ +АХЕ(3) « АХЕ(3)) 


DOT=AXI(1) «АХЕЯ)--АХІС2) ж АХЕ(2)--АХЫЗ» + AXF(3) 
IF ((RI + RF). LT. THR) RETURN 
ANGLE= — DACOS(DOT/(RI + REY) 
IF(DABS(ANGLE). LT. THR.OR. 

/ (PI 一 DABSIANGLE7). LT. THR) RETURN 
ROTATD=. TRUE. 
ROTAX(D = АХИ2) + АХЕ(3) — AXI(3) * AXF (2) 
ROTAX(2)= — АХІ(1) * AXF6(3)— AXI(3) + AXF(1) 
ROTAX(3)= АХІК(1) + AXF(2) — AXI(23 x AXF(1) 
CALL EULERCANGLE.ROTAX,. FALSE. ,AL .BE.GA .RMT) 
DO 30 NV=1,NVEC 
DO 10 I=1.3 
T(D=ZERO 
ОО 10 J=1,3 
T(1)=T(TI +RMT(1,J) + 84) .NV) 
CONTINUE 
DO 20 1=1,3 
IF (ОАВЅ‹ТО). LT. THR) TID 一 ZERO 
St(I,NV)= тС 
CONTINUE 
CONTINUE 
RETURN 
END 

SUBROUTINE CLOSUR 

IMPLICIT REAL #8 <А-Н.О--2) 
INTEGER * 4 М2,МЕО 
CHARACTER «4 NSYMBL 
CHARACTER + 6 LBLC(120),LBLD,LEL 
LOGICAL ADDED,INV 
DIMENSION ROTAX(3).,RMT(3, 3), 

/ ЁМТР(3,3) 1С1054120) 
СОММОМ/АРАВМ/ХУ (30), YV(30), ZV (30), 
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i0 


20 


30 


40 


20 


95 


/ ZDUM(30),NZ(30),NSYMBL (30), 

/ NEQ(30),KTAU (16), NATAU(16,16) 
COMMON/DIMENS/NAT.NDAT 
COMMON /MAXDIM /NATMX,NDATMX,NEQSMX 

‚„МРЕМХ,МОРМХ,МІМРІ 
COMMON/QPERNS/RANGS(120),RAXES(3,120), 

/АТГРНА(120),ВЕТА41202,С-АММА(120).ЕМА75(3,3.,1209 
COMMON /SYMDIM /NOPERS ,NPROPR , МІМРЕР 

/ ЭМАТОР,МАДАХМ,МА)СМ,МАТАХ,МАТРІ., 

/ MINAX.NINVER ,NREFLS,NSIGMH ,1SIGMH ,NSROTS 
DATA ZERO ,THR,ONE,TWO/0. 000,0. 00100,1. 00,2. роу 
DATA РІ/2. 14159265358979D0/ 

NCLOSE =0 

NBEFOR 一 NOPERS 

CONTINUE 

ГО 50 МӘРІ--1,МРЕОРЕ 

ГО 50 МОР2=1,МРВОРЕ 

DO 301= 1,3 

DO 30 1=1,3 

RMT(1,J)=ZERO 

DO 20 K=1,3 

RMT(1.J)=RMT(1,J2-—- RMATSG0(,K,NOP1) 

/ *RMATS(K,J,NOP2) 

CONTINUE 
DO 40 МОР--1.МРКОГЕ 
ІЕ(БАН<«ЕМТ(1,13-ЕМАТ8(1,1.МОРЭ3.СТ.ТНЕ.ОВ. 

/ DABS(RMT(1,2) -ЕМАТ‹1,2, МОРУ). GT. THR. ОВ. 

/ DABSC(RMT(1,3) —RMATS(1.,3,NOP))., GT. THR. OR. 

/ DABSCRMT(2,2) —-RMATS(2,2,NOP)), GT. THR. OR. 

/ ОАВЅ(ЕМТ (2,3) -RMATS(2,3,NOP)). GT. THR. ОК. 

/DABS(RMT(3,33 — RMATS(3,3.,NOP)), GT. THR)GOTO 46 

СО ТО 50 

CONTINUE 

GO TO 55 

CONTINUE 

GO TO 60 

NEWOP=NPROPR +1 

NCLOSE=NCLOSE+1 
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ICLOS(NCLOSE) =NEWOP 
INV =. FALSE. 
GO TO 160 
60 CONTINUE 
IF (NIMPRP. EQ. 0) GO ТО 230 
МЕК8Т--МІМРІ 
МІ.АФТ--МІМРІ-ЕМІМРЕР--1 
DO 100 NOP1=NFRST,NLAST 
DO 100 NOP2 一 NFRST ,NLAST 
DO 80 TI 一 1 ,3 
DO 80 J=1,3 ` 
RMT(I,])=ZERO 
DO 70 K=1,3 
0 Ққмта,р-ЕМТа.р-ҒЕМАТӨ(ЬК,МОРІ13 ж 
/ МАТ8ҰК.),МОР2) 
80 CONTINUE 
DO 90 МОР--і.МРКОРЕ 
[FCDABS(RMT( ,1)— RMATS(:1NOP)D). GT. THR. OR. 
/ DABSCO(RMT(1,2) —RMATS(1,2,NOP)) GT. THR. ОК. 
/ DABS(RMT(1,3)—RMATS(1,3,NOP)). GT. THR. ОК. 
/  DABS(RMT(2,2)—RMATS(2,2,NOP)). GT. THR. ОК. 
/  DABS(RMTQ.3)—RMATS(2,3,NOP?)). GT. THR. OR. 
DABSCRMTL3 ,3 一 RMATS43 3 NOP). GT. THRIGOTO 90 


СО ТО 100 
90 CONTINUE 
СО ТО 105 
100 CONTINUE 
СОТО110 


105 МЕҸОР= ҸМРКОРКЕ +1 
NCLOSE=NCLOSE+1 
ICLOS(NCLOSE)=NEWOP 
INY=.FALSE. 

СО ТО 160 
110 CONTINUE 
BO 150 ISWT=1,2 
ГО 150 NOP1=1,NPROPR 
DO 150 NOP2=NFRST,NLAST 
МЕТ=МОР1 
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120 


130 


140 


150 


155 


160 


/ 
/ 
/ 
/ 
/ 


ЧЕСТ = МОР2 

IF (ISWT. ЕО. 2) NLFT = NOP2 
IF (ISWT. EQ. 2) МЕСТ = МОРІ 
DO 130 I=1,3 

DO 130 J=1,3 
RMT(L,J)=ZERO 

ГО 120 К--1,3 


RMT(I,J)=RMT(1,J)+RMATS(I,K,NLFT) 
/ * RMATS(K,J , NRGT) 


CONTINUE 
DO 140 NOP=NFRST,NLAST 


IF(DABS(RMT(1,1)— RMATS(1,1,NOP)). GT. THR. OR. 
БАВЭ«ЕМТ(,2)-ЕМАТ5(1,2,МОР»)).СТ.ТНК. ОК. 
рРАВӘ«ЕМТ(1,3)--ЕМАТ5(1,3.МОР)). СТ. ТНК. ОК. 
DABS(RMT(2,2) - RMATS(2,2,NOP)). GT. THR. OR. 
DABS(RMT¿(2,3)— RMATS(2,3,NOP)). GT. THR. OR. 

рАВ5(КМ7(3,33-КМАТ853.3,МОР»)).СТ.ТНКОСОТО 140 


СО ТО 150 
CONTINUE 
GO ТО 155 
CONTINUE 
GO ТО 230 
NEWOP=NPRMX+ANIMPRP+1 


‚ NCLOSE=NCLOSE+1 


ICLOS(NCLOSE) =NEWOP 

INY =. TRUE, 

SGN =ONE 

IF (INV) SGN= --ONE 

X= SGN < (RMT(2,3)—RMT (3,2)) 
Y= SGN (RMT(3;,1)~RMT(1,3)) 
Z= SGN + (RMT(1,2) —RMT(2,1)) 
IF (DABS(X).LT. THR) X=ZERO 
IF (DABS(Y). LT. THR) Y=ZERO 
IF (DABS(2Z). LT. THR) Z= ZERO 
IF(Z.GT.ZERO) СОТО 170 


IF (Z. EQ. ZERO. AND. Ү.СТ.?ЕКОЭСӘТО 170 
IF(Z. EQ. ZERO. AND. Y. EQ. ZERO. AND. 
/ Х.СТ.?ЕКООСОТО 170 
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170 AXMAG=DSQRT(X + X+ Y * Ү--2%2) 
IF(AXMAG. МЕ. ZERO) GO ТО 210 
IF(DABS(5GN + RMT(1,1) -ОМЕ). LT. THR2X=ÜNE 
IF(DABS(SGN * ЕМТ (2,2) -ОМЕ›. LT. THR)Y=GNE 
IF(DABS(SGN * RMT(3.3) — ONE). LT. THR?Z=0NE 
AXMAG=DSQRT(X x X+ Y * Y+ Z + Z) 
[F (AXMAG. NE. ZERO) GO ТО 210 
IF(DABS(SGN * RMT(1,1) РОМЕ). GT. THR)GOTO 180 
Х--?ЕКО | 
Ү--ОМЕ 
Z= (SGN + Ү-ЕМТ(2,2)»УУО/ЕМТ(2,3) 
GO ТО 200 
180 IF(DABS(SGN к ЕМТ(2.22--ОМЕ). GT. THR)GOTO 199 
Y=ZERO 
Z=0NE 
A= (SGN x Z— RMT 63,3)» Z) /RMT(Ł3,1) 
GO TO 200 
190 IF(DABS(SGN 上 RMT(3,3— ONE) GT. THR)GOTO 200 
Z 一 ZERO 
Х--ОМЕ 
Y=(SGN *X—RMT(1,1) + X)/RMT(1.22 
200 AXMAG=DSORT(X * Х-КҮ» Y +Z 2) 
IF (AXMAG.EQ. ZERO > СО TO 380 
210 ROTAX(1)=X/AXMAG 
ROTAX(2)=Y/AXMAG 
ЕОТАХ(32-7/АХМАС 
TRACE 一 SGN (ЕМТ(С1.1)2--ЕМТ(2,22--ЕМТХ3,39) 
ANGLE =DACOS (TRACE —ONE)/TWO) 
CALL EULER(ANGLE .ROTAX ,INV.AL,BE,GA.RMTP) 
IF (DAEBS(RMTP(1,2)—RMT(1,222. GT. THR. OR. 
/ DABS(RMTP(0(1,3) —RMT(1.3)). GT. THR. OR. 
/ШАВФ“ЕМТР(92,3)- RMT(2,3).GT. THRIANGLE= ~ ANGLE 
CALL EULER(ANGLE .ROTAX,INY ,AL'BE CA, RMT 
CALL АрЮОР‹АМСІЕ, КОТАХ,ІМУ, АІ ,ВЕ,СА.ЕМТ, 
/ ADDED) 
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230 


235 


240 


/ 
/ 


IF £. NOT. ADDED) GO ТО 390 

СО ТО 10 

CONTINUE 

CALL OPORDR (NCLOSE ,ICLOS) 

WRITE (* ,500) 

WRITE (§,500) 

WRITE(C ж ,510> МОРЕК5, МРКОРК,МІМРЕР,МАЈСМ 

WRITE(6,510) МОРЕК5,МРКОРК.,МІМРЕР,МАТСМ 

WRITE( ж .515) MAJAXN,NINVER, NREFLS, NSROTS 

WRITE(6,515) MAJAXN .NINVER ,NREFLS ,NSRO TS 

DO 235 МӘР--1,МОРЕКЗ | 

CALL NOPLBL(NOP, LBL) 

LBLC (NOP) =LBL 

CONTINUE 

WRITE (+ ,520) 

WRITE (6,520) 

WRITE (ж ,530) 

WRITE (6,530) 

DO 240 МОР =1,МРКОРЕ 

КАМРТ--КАМСЗСМОРУ/РІ 

АТ.РРТ--АІМРНАСМОРУҘ/РІ 

ВЕТРТ--ВЕТА (NOP)/PI 

САМРТ-САММАСЧСМОРУУРІ 

WRITE 6% ,540) МОР,КАХЕЗ(1,МОР).КАХЕ5(2,МОР)» 
«ЕАХЕЗ(3.МОР),КАМРТ.АТ,РРТЬВЕТРТ,САМРТ, 
(ЕМАТЕС.),МОР».І--1.3».І--1,22,1.ВГСЯМОВР) 
(RMATS(O,J.NOP).I=1,3) 

WRITE (6,540) NOP,RAXES(1,NOP) ,RAXES(2,NOP) 
‘RAXESt3, МОР) ,RANPT ,ALPPT ,BETPT .GAMPT, 


/ СЕМАТ5П1,],МОР)›,)=1,3),1=1›,2),1,ВЬС ЧОР) 
/ (RMATS(3,],NOP),J=1,3) 


CONTINUE 

IF <МІМРЕР. EQ. 0) СО ТО 260 
WRITE (+ ,550) 

WRITE (6,550) 

WRITE (ж ,530) 

WRITE (6,539) 
МЕК8Т--МРКОРК-Ғ1 
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250 
260 


270 


280 


МГАЅТ = МЕЕЗТ+МІМРВЕР —1 

DO 250 NOP=NFRST.NLAST 

RANPT=RANGS(NOP)/PI 

ALPPT= ALPHA (NOP)/PI 

ВЕТРТ--БЕТА (МОРУ/РІ 

САМРТ-САММА«МОРУ/УРІ 

WRITE С» ,540) МОР,ВАХЕЗ(1,МОР),КАХЕ5(2ЬМОР); 
‚„ВАХЕ5‹3,М№МОР),ВАМРТ,АТЫРРТ,ВЕТРТ,САМРТ, 


/ ((RMATS(L J. NOP),]J=1,3),1=1,2), 
/ LBLC(NOP), (RMATS(3,J,NOP),J=1,3) 


WRITE (6,540) МОР,ЕАХЕ5(1,МОР),КАХЕ5(2.МОР);) 
 RAXES(3, NOP), RANPT,ALPPT,BETPT,GAMPT, 
((RMATSKCI ; ; NOP) ‚]==1.3›,[=1 ‚2) + 


/ LBLC(NOP), (RMATS(3,J,NOP),J—1,3) 


CONTINUE 

CONTINUE 

WRITE (* ,630) 

WRITE (6,630) 

WRITE (6,635) 

NUM=1 

LBLD=LBLC(1) 

DO 280 NOP=1,NOPERS 

NU=0 

DO 270 NO=NUM ,NOPERS 
IF(LBLC(NO). NE. LBLD) GO ТО 270 
NU 一 NU 十 

LBLD=LBLC(NO) 

CONTINUE 

NUM=NUM+NU 

IF(NU. NE. 0) WRITE ( + ,640)NU ,LBELD 
IF(NU. NE. 0) WRITE (6,640)NU ,LBLD 
LBLD=LBLC(NUM) 

CONTINUE 

WRITE (x ,7(/5Х,”МОТЕ. 1. Cn INCLUDES” 


/ |” ALL Cn SYMMETRY AXES WITH DIFFERENT”, 
/ ” DIRECTIONS;*”/11X,"”2. REFL INCLUDES” 
/ 2.7 SIGMAd, SIGMAh AND 51СМАу.?”)') 
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380 


390 


5006 


510 


915 


520 


540 


500 


560 


610 


WRITE(6,'(/SX, "NOTE, 1. Cn INCLUDES ”, 
/"ALL Cn SYMMETRY AXES WITH DIFFERENT ” 
/,"DIRECTIONS;”/11X ,''2. REFL INCLUDES” 

/ ,” SIGMAd, SIGMAh AND SIGMAv. 727 

WRITE.(* ,560) NBEFOR ,NCLOSE 

WRITE (6,560) МВЕРОК,МСІ.ОЗЕ 

RETURN 

WRITE( x ,610) ((RMT(I,J),J=1,3),1=1,3) 

WRITE(6,610) ((RMT0(1,J>,J=1,3),I=1,3) 

STOP 

WRITE¿( + ,620) ((RMT(I,J),]=1,3),1=1,3) 

WRITE(6,620) ((RMT(1,J),J=1,3) ,1=1,3) 

STOP 

FORMAT (/4Х.-------Ғ--Һ6Х,"МОСЕСІЛ.АК ', 

/ 'SYMMETRY QPERATIONS:',6X,’ 十 十 十 十 十 "7 

ЕОВМАТ(5Х,"ТОТАІ, МО. OF OPERATIONS ,62,'=" 
/›15/5Х ,'NO. OF PROPER ROTATIONS’ ,6X ,=",15 
/ /5Х.'МО. OF IMPROPER ROTATIONS',4X,'=’.,15 
/ ЖАХУМАХІМІМ C(N)',17X,'=”,15) 

FORMAT(SX,'MAXIMUM ORDER',16X,'=",15 
/ 15X ,'NO. OF INVERSION OPERATIONS’,2X,'= ,15 
/ /SX,'NO. OF REFLECTION OPERATIONS’, 1X ,’="， 
/ 15/5Х.?МО. OF ROTARY —REFLECTION*,5X,'=',15) 

FORMAT (//4X,’ 十 十 十 十 十 ',5X，'PROPER ， 

/ 'ROTATIONS: "5X, 5CHI 

FORMAT C NO.*,3X,'<—— ——AXIS————>', 4X 
/,'ВОТМ ANG’, 3X, '<EULER ANG(PI RAD)>',4X 
/,'<—ROTN MATRIX- >>'/° ОР',4Х,'Х°.5Х,'Ү" 
/,.5X,'Z',5X,'(PIRAD) 2X ALPHA": 2X, 

ВЕТА’, 2X, GAMMA’, 5X ,'X',6X,'Y',6X, 29 

FÖRMAT(/13,1X,3F7. 4,1X, F7. 4,1X,3F7. 4 


/ ,1Х,3Ет7.4./56Х.3Е7,4.,/,А6,50Х,3Е7.4) 
FORMAT(//4X'+ + +4 +", 5X, 'IMPROPER ' 
/ "ЕОТАТІОМӨ8.7,5Х,5С-К9// 


ЕОЕМАТ(//1Х,15," OPERATIONS WERE FOUND BY ' 
/ ,*SUBROUTINE ЅҮМОРЅ, '/1Х ,15,° OPERATIONS ' 


/ „МЕКЕ GENERATED FROM SUBROUTINE CLOSUR"/) 


FORMAT(//' ERROR STOP, ROT”N AXIS CANNOT’ 
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/.” ВЕ FOUND FOR THIS ROTATION MATRIX — —' 
/ /5X,'"X',9X,"Y',9X ,"Z'/3(/1X,3F10. 59) 
820 FORMAT (./// ERROR STOP.: А NEW SYMOP， 
/,* FOUND IN CLOSUR WAS МОТ ALLOWED’ 
f- BY ADDOP '/5X,' ROT MATRIX 一 —!,15X 
/ 'X',9X,'Y',9X,'Z'/3(/26X.3F10.5)) 
630 FORMAT </АХ.7---------Е SUMMARY OF ТНЕ” 
/ а" SYMMETRY OPERATIONS. 十 十 十 十 十 7 
635 FORMAT (2X,'NUMBER OF ЗҰМ-ОР",5Х, 
/ 'SYM — OPERATION’) 
640 FORMAT (9Х,12,17Х,А7) 
END 
SUBROUTINE OPORDR (NCLOSE ,ICLOS) 
IMPLICIT REAL * 8 {A—H.,O—2Z) 
INTEGER * 4 NZ,NEQ 
CHARACTER + 4 NSYMBL 
DIMENSION RANG{120),RAX(3.,120), 
/ AL(120),BE(120).GA(120,RA(3.3,120) 
DIMENSION ICLOS{120).,INDEX(120), 
/ INVIDX(120), AKORD(120) 
COMMON/APARM/KVt(30Y,YV(30 .ZV(30),Z(30),NZ(30) 
/ NSYMBL(30),NEQ(30).KTAU(18Y.NATAU(16.16) 
COMMON/DIMENS/NAT ,NDAT 
СОММОМ/МАХПІМ/МАТМХ.МПАТМХ.МЕО5МХ. 
/ МРЕМХ.МОРМХ.МІМРІ 
СОММОМ/ОГЕЕМ5/КАМС5(120),ВАХЕЅ(3 120). 
/АГЕНА(120).ВЕТА<120).САММА(1203.ЕМАТ585<5<3.3.1203 
COMMON/SYMDIM/NOPERS.NPROPR ,МІМРЕР.МАЈОР, 
/ МАЈАХМ,МАЈСМ,МАЈАХ.МАЈРІ,,МІМАХ,М№МІМУЕВ 
/ ,NREFLS.NSIGMH ,IStGMH ,NSROTS 
DATA ZERO ,THR ,ONE,FOUR ,Р1/0. 000,0. 0010 
/.1.000,4. 000,3. 1415925535897970/ 
DO 10 МОР = 1. МРВОРЕ 
INDEX (NOP}= NOP 
IF((ONE—RAXES(3,NOP)). LT. THR}YAXORDNOP} = —FOUR 
IF СОМЕ-- ВАХЕЅ(3, МОР)). СТ. ТНЕАХОВТІКМОР) 
DATAN2(—RAXES(1,NOP), —RAXES(2,NOP)) 
IF(DABES(PI—AXORD(NOP)). LT. THR)AXORD(NOP)= — PI 
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10 


20 
25 


30 


40 
5) 


CONTINUE 

IF (NIMPRP. EQ. 0) GO TO 25 
МЕК5Т--МІМРІ. 
МІ,АӨТ--МЕК8Т--МІМРЕР-1 
ГО 20 NOP=NFRST ,NLAST 
INDEX(NOP)=NOP 


IF (СОМЕ RAXES(3.NOP)). LT. THRO)AXORD(NOP) = — FOUR 


IF (ONE —RAXES(3., NOP} ). GT. ТНЕЎАХОКР(МОР) = 


/DATAN2(—RAXES(1,NOP), — RAXES(2,NOP)) 


ТЕ (DABS{PI— AXORD(NOP)). LT. THR}AXORD(NOQP)= —FI 

CONTINUE 

NSORT=NPROPR—1 

IF (NSORT.LE.1 GO ТО 59 

NITS=NSORT-—1 

DO 40 IT=1,NITS 

МТЕЅТ = МОЕТ — ІТ 

ISW = 0 

DO 30 ІР-1,МТЕ8Т 

МОР--МРКОРК--ІР 

IDX1=1INDEX (NOP) 

IDX2=[INDEX(NOP-+ 1) 

ANGDIF=DABSCRANGS(IDX2)) -DABS(RANGS¿CIDX1)15 

AXSDIF=AXORD(IDX2) —AXORD(IDX1) 

IF(ANGDIF. СТ. THR) GO TO 30 

IFIDABS(ANGDIE). LT. THR. AND. AXSDIF. СТ. — THR) 
GO TO 30 

ISW=[SW+1 

ITMP= NDEX (NOP; 

INDEX (NOP}=INDEX (NOP +1) 

INDEX (NOP+1)=ITMF 

CONTINUE 

IF (ISW. EQ. 0) GO TO 50 

CONTINUE 

NSORT=NIMPRP 

IF (NINVER. EQ. 1) NSORT =NIMPRP—1 

IF (NSORT. LE. 1) GO ТО 80 

МІТ6--М5ОЕТ-1 

DO 70 1T =1,NITS 
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60 


79 
89 


99 


95 
96 


NTEST =NSORT —IT 

1597--0 

DO 60 ІР--1,МТЕ5Т 

NOP=NLAST—IP 

IDX1=INDEX (NOP) 

IDX2=INDEX(NOP+1) 

RANG1=DABS(DABS(RANGS(IDX1I2)— PD 

RANG2=DABSCDABS(RANGS(IDX2)) — PL 
ТЕ (DABS(RANGI}.LT. THR) ВАМСІ=РІ 

IF (DABS(RANG2), LT. ТНК) RANG2 =PI 

ANGDIF=RANGZ2—RANG1 

AXSDIF= AXORD(IDX2)— AXORD(IDX1) 

IFCANGDIF. GT. THR) GO ТО 60 

IF (DABS(ANGDIF}). LT. THR. AND. AXSDIF. GT. — THR2 
/ GO TO 60 

ISW = [5%/ +1 

ITMP=INDEX(NOP) 

INDEX(NOP)=INDEX(NOP+1) 

INDEX(NOP+1)=ITMP 

CONTINUE 

IF GSW. EQ. 0) GO ТО 80 

CONTINUE 

DO 90 NOP=1,NPROPR 

INVIDX(INDEX(NOP1)=NOP 

CONTINUE 

IF (МІМРЕР. EQ. 0) GO ТО 96 

DO 95 МОР == NFRST.NLAST 

ІМУІШХ СМБЕХФМОР»Э--МОР 

CONTINUE 

CONTINUE 

МАЈОР= ІҸҰІРХ (МАЈОР) 

ІЕ‹МАЈОР. СТ. МРЕМХУМАЈОР= МАЈОР – МРЕМХ + МРКОРК 

IF(NSIGMH. EQ. 1) ISIGMH=INVIDX (ISIGMH) 
/ —МРЕМХ-ЕМРКОРК 

IF (NCLOSE. EQ. 0 GO TO 110 

DO 100 NC=1,NCLOSE 

ICLOS (ЧС) =INVIDX (ICLOS(NC)) 
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100 
110 


140 


160 
165 
170 
175 


IF (ICLOS (NC). СТ. МРКМХ) ICLOSC(NC OS = 


/ ІСІ О5(МСУ)-МРЕМХ--МРКОРВ 


CONTINUE 

DO 140 NOPWRT=1,NPROPR 
МОР--ІМБЕХ(МОРУКТ) 
КАМС(МОРҰЕТ)--КАМС5(МОР) 
AL (NOPWRT)=ALPHA МОР) 
BE(NOPWRT)=BETA(NOP) 
САСМОРУКТ)-САММАЧМОР) 

DO 140 1=1,3 
RAX(IINOPWRT)=RAXES(I, NOP ) 
DO 140 J=1,3 
RA(LJ,NOPWRT)=RMATSK(I,J,NOP) 
CONTINUE 


` IF (NIMPRP. FQ. 0) GO TO 175 


DO 170 NOPWRT=NFRST,NLAST 
NOPWR=NOPWRT—NFRST+NPROPR+1 
NOP=INDEX (NOPWRT) 

RANG (NOPWR}—RANGS{NOP) 

АІ. (NOPWR}= ALPHA (ЧОР) 
BE‘(NOPWR) = ВЕТА (ЧОР) 
GA(NOPWR)= GAMMA (ЧОР) 

DO 165 1-<1.3 

КАХ, NOPWR)=RAXES(I, NOP) 
DO 160 J=1,3 
RA(J,NOPWR)=RMATS(I,] ,NOP) 
CONTINUE 

CONTINUE 

CONTINUE 

DO 190 NOP=1,NOPERS 

RANGS (NOP) = RANG (NOP) 

ALPHA (NOP)= АІ. (КОР) 
ВЕТА(МОР) = ВЕ‹МОР) 
GAMMA (МОР) =СА (МОР) 
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180 


80 


DO 1901=].3 
RAXES(I, МОР) = ВАХ (1, МОР) 
РО 190 Ј=1,3 
ЕМАТЅ(1,Ј, ЧОР? = ВА (1,3,МОРЭ 
CONTINUE 
RETURN 
END 
SUBROUTINE NOPLBL (NOP ,LBL) 
IMPLICIT REAL +8 (A—H,0O—2Z) 
CHARACTER + 6 ILBLP.ILBLI, LBL 
DIMENSION ILBLP(12).ILBLI(24),CP012),CI(24) 
СОММОМ/ОРЕЕМ5/ЕАМС8(1202,БАХЕ553,120», 
/ALPHA(120Y,BETA(120), GAMMA (120),ЕМАТЅ(3,3,120) 
COMMON /SYMDIM /NOPERS, ҸРЕОРК,МІМРЕР,МАЈОР, 
/ MAJAXN ,MAJCN ,MAJAX ,MAJPL .MINAX ,NINVER, 
/ NREFLS ,NSIGMH,ISIGMH ,NSROTS 
DATA 1LBHLPAE' СС Сз, 
ГЕМ C4.” C5ND ' С5527,” CFA 
ж" Ст, CAJ" Car" С8Ҷ3'/ 
DATA ILBLI I’. БЕРІ. 53,0 64” 
/. 65551! S5\3’,” 561°," ST7\1’,’” ST7\3’ 
/. 8757,7 58%1°.° 5843,” 59517)” 595! 
/," 5957”. 51041'.,° 5103°,° 811517811437 
/, S115% 81117,7 611097, 7812817, 812Х57/ 
DATA СР/0. 000.0. 500,0. 333333D0,0. 2500,0, 2р0 
/ ,0.4D0,0, 166667 0,0. 14285700,0. 28571400 
/ ,0,42857100,9. 17500,0. 375D0/ 
РАТА СІ/0. 000,0. 000,0. 323333200, 0. 2500,0, 2р0 
/ 0. 6р0,0. 16666700,0. 142857D0,0, 42857100, 
/ 0. 714286р0,0. 12500,0. 375р0.0. 1111100, 
/ 0. 55555600,0. 77777800.0.1р0,0. 300, 
/ 0. 09090900,0. 2727270,0. 45454500,0. 63636400 
/ .0.81818200,0. 08332300, 0. 416667D6/ 
DATA ТНВ ,ONE ,PIH,TWOPIA0. 00100,1. 0ГЮ, 


19 


20 


40 


/3. 14159265358979323D0,6. 2831853071795864600/ 

ANGLE=DABS(RANGS(NOP)) 

IF СМОР. GT. NPROPR) GO ТО 20 

ORDR= ANGLE/TWOPI 

DO 101=1,12 

IF(DABSt(ORDR —CP(T1)). LT. THR) LBL =ILBLF (I) 
CONTINUE 

GO TÖ 40 

IF (ANGLE. LT. THR) THEN 

LBL =ILBLI(1} 

ELSE 

ANGLE =DABS(ANGLE-— PI) 

ORDR = АМСІ,Е/ТМОРІ 

DO 30 1=2,24 

IF(DABS(ORDR—CICG).LT.THR) LBL =ILBLI (D 

CONTINUE 

ENDIF 

CONTINUE 

RETURN 

END 

SUBROUTINE SCHOEN (ISYM) 

IMPLICIT REAL #8 (ХА-Н,О-2) 

CHARACTER +4 ILBL, IQUEST ,ISYM 

DIMENSION ILBL (46) 
COMMON/SYMDIM/NOPERS,NPROPR ,МІМРЕР,МАЈОР, 
/ MAJAXN MAJCN ,MAJAXMAJPL ,MINAXNINYER， 
/МКЕКІ,5,МӘІСОМН,18ІСМН,М5КОТ8 

DATA ILBL/'C1',' CS ',' СІҢ С2 9,7 C3" 
Са", C5 °," C6"," C? CC87 CV”, 
/ *C3V*,' САМ," C5V*,' С6У?, ” C2gH*,* СЗН' 
/ ,'Сан',' C5H*," С6Н”,” D2 *,* D3 °,' Па? 
АТЫ, D6 *,' 020°,° D3D',’ ПА», DSD 
/ ,' D6D',* D2H:,* D3H*,' DAH',’ ТЫН», DoH 

La De КТ n TH t TD оқ он: 
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10 


20 


21 


22 


30 


/ ," 54 *,* S6 *,* 58 *," 13, ID '/ 

DATA IQUEST/*??7?'/ 

ISYM=IQUEST 

СО ТО (10,20,30,40,50,60,70,80) ,MAJCN 

GO TO 120 

IF (NOPERS. EQ. 1) ISYM=ILBL(1) 

IF (NOPERS. EQ. 2. AND. NINVER. ЕО. 001SYM= IL BE (2) 
IF(NOPERS. EQ. 2. AND. NINVER. EQ. 11SYM=ILBL (3) 
GO TO 100 

IF (NOPERS. GT. 2) GO TO 21 

ISYM =ILBL (4) 

GO TO 100 

IF (NOPERS. GT. 4) СО ТО 22 

IF (NINVER. EQ. 1) ISYM=ILBL(16) 

IF(NINVER. EQ. 0. AND. NREFLS. GT. OISYM =ILBL (11? 
IF (NINVER. EQ. 0. AND. NREFLS. EQ. 0, AND. 

/ NSROTS, EQ. 0) ISYM =Н.ВІ (21) 

IF (NINVER. EQ. ©. AND, NREFLS. EQ. 0. AND. 

/ NSROTS.GT. 0) ISYM =ILBL <42) 

GO ТО 100 

IF (NIN VER. EQ. 0) ISYM = П.В. (26) 

IF (NINVER. EQ. 1) ISYM=ILBL(312 

СО ТО 100 

IF (МОРЕВ8. GT. 3) GO ТО 31 

TSYM=ILBL(5) 

СО ТО 100 

IF (NOPERS. GT. 6) GO ТО 32 

IF (NINVER. EQ. 1) ISYM =ILBL (43) 

ТЕ (NINVER. EQ. 0. AND. NREFLS. EQ. NISYM =ILBL (22) 
IF (NINVER. EQ. 0. AND. NREFLS. GT. 0. AND. 

/ NSROTS. EQ. 0) ISYM=ILBL (12) 
IF (NINYER. EQ. 0. AND, NREFLS. GT. 0, AND. 
/ NSROTS,GT.0) ISYM=ILBL (17) 
GO TO 100 
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33 


40 


41 


42 


43 


44 


50 


ol 


/ 
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IF СЧОРЕК5. GT. 12) СО ТО 33 
IF (NINVER. EQ. 1) ISYM =ILBL(27) 
IF(NINYER. EQ. 0. AND. NREFLS. GT. OISYM =ILBL (32) 
IF(NINVER. EQ. 0. AND. NREFLS. EQ. 0215ҮМ = ILBL (37) 
GO ТО 100 
IF (NINVER. EQ. 1) ISYM = ILBL (38) 
IF (NINVER. EQ. 02 І5ҮМ =ILBL (39) 
GO TU 100 
IF (NOPERS. СТ. 4) GO ТО 41 
ІБҮМ-е-П.БІ,(6) 
СО ТО 100 
IF (NOPERS. СТ. 8) СО ТО 42 
IF (NINVER. EQ. 1) ISYM=ILBL(18) 
IF(NINVER. EQ. 0. AND. NREFLS. GT. OISYM= 1LBL(13) 
IF (NIN VER. EQ. 0. AND. NREFLS. EQ. 0. AND. 
NSROTS. EQ. 0) ISYM = ILBL ‘(23) 
IF «МІМУЕК, EQ. 0. AND. NREFLS. EQ. 0. AND. 
NSROTS. GT. 0) ISYM=ILBL (44) 
GO TO 100 
IF ‘NOPERS.GT.16} GO TO 43 
IF (NINVER. EQ. 1? ISYM=IILBL (33) 
IF (NINVER. EQ. 0) ISYM=ILBL (28) 
GO ТО 100 
IF (NOPERS. GT. 24) СО TO 44 
ISYM =1ILBL ‘40) 
GO TO 100 
ISYM=ILBL (41) 
СО TO 190 
IF (NOPERS. GT. 5) GO TO 51 
ISYM =1ILBL (7) 
GO TO 100 
IFONOPERS. GT. 10) СО ТО 52 
IF(NREFLS. EQ. 0) ISYM=ILBL(24) 
IF (NREFLS. GT. 0. AND. NSROTS. EQ. 0)15ҮМ = ILBL¿(14) 
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IF (NREFLS. GT. 0. AND. NSROTS. GT. 0)ISYM=TLBL(19) 
СО ТО 100 
52 ЛЕ (NOPERS. GT. 50) СО ТО 53 
IF (NINVER. EQ. 0) ISYM =ILBL (34) 
IF (NINVER. EQ. 1) ISYM =ILBL(29) 
GO TO 100 
53  IF(NOPERS. EQ. 60. AND. NIMPRP. EQ. 00ISYM=ILBUL (452 
IF (NOPERS. EQ. 120. AND. NINVER. EQ, 1. AND. 
/NREFLS. EQ. 15. AND. NSROTS. EQ. 44)JISYM=ILBL (46) 
GO TO 100 
60 ТЕ (NOPERS. GT. 6) GO ТО 61 
ISYM = ILBL (8) 
СО ТО 100 | 
61 IF(NOPERS. GT. 12> СО ТО 62 
IF(NINVER. EQ. 1) ISYM=ILBL (20) 
IF(NINVER. EQ. 0. AND. NREFLS. СТ. 0)ISYM 一 ILBL(15》 
IF(NINVER. EQ. 0, AND. NREFLS. EQ. 00ISYM=ILBL(25) 
GO TO 100 
62 ЛЕ (NINVER. EQ. 0) ISYM =ILBL(30) 
IF (NINVER. EQ. 1) ISYM =ILBL (35) 
GO TO 100 
79 ISYM=ILBL(9) 
GO TO 100 
80 ЛЕ (NOPERS. EQ.8) ISYM=ILBL(10) 
IF (NOPERS. EQ. 32) ISYM=ILBL (36) 
100 IF (ISYM.EQ.IQUEST) СОТО 120 
RETURN 
120 WRITE (+ ,510) 
WRITE (6,510) 
RETURN 
510 FORMAT (/ CAUTION.: THIS POINT GROUP’, 
-J'IS NOT INCLUDED ІМ OUR POINT GROUP LIST') 
END 
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十 ,注意 事项 


1. 本 程序 需 在 DOS 3. 3 操作 系统 启动 下 运行 , 低 于 此 版 本 的 
操作 系统 相逢 用 . 

2, 程序 适用 范 国 

1) 组 成 万 胞 5 分 子 ) 的 原子 最 大 数目 NATMAX = 30; 

2) 对 称 性 等 价 组 的 最 大 数目 NDATMX = 16; 

3) 在 一 个 对 称 性 等 价 组 中 原子 的 最 大 数目 NEQSMX = 16; 

4) 正当 转动 的 最 大 数目 NPRMX = 60; 

5) 非 正 当 转 动 的 最 大 数目 МІМРІ = 61; 

6) 最 大 操作 数目 МОРМХ = 120. 


S 1.3 晶体 中 的 位 错 


实际 晶体 并 不 是 完整 的 ,而 是 存在 着 各 种 各 样 的 缺陷 . ñh ВУ 
АА Ft Ta SE WR du [K 28 НЕН КЕНЕН А Ж. T 6k A ЕЗ 
[B] 27 8) T А, HARKEMA. HRAT, ЕЗ. АНЕ 
《如 位 错 ) TIGRES СИНА y. НЯ. НЕЕ LEE). TE naik Б F kh tó 
中 ,位 错 是 最 具有 普 多 重要 人 性 的 一 种 

位 错 是 晶体 中 的 一 种 线 型 缺 网 , 它 是 钻 体 中 已 请 移 区 与 未 滑 
移 区 的 分 界 . 位 钳 是 易 动 的 ,形变 时 ,大 量 亿 针 运 动 到 达 晶 体 表 面 
就 形成 了 宏观 的 滑 移 线 . 位 错 运 动 和 分 布 ,引起 唱 体 的 宏观 范 性 形 
变 . 位 错 在 晶体 中 营 通 存在 , 巧 不 仅 影 响 重 司 的 力学 强度 ,而 且 对 
围 体 的 评 多 物理 性 质 , 如 半 导 迟 的 电学 性 质 、 铁 磁体 的 磁性 以 及 虽 
体 的 光学 ЕНЕ Н ЖЧ B; Wi. 位 错 具 有 比较 复杂 的 组 态 ， 
其 最 往 单 的 组 态 是 刃 型 位 钉 和 螺 型 位 错 , 其 最 基本 的 运动 形式 是 
请 移 和 梦 移 , 作为 计算 机 实验 的 例子 ,本 节 和 将 演示 立方 品 体 中 为 型 
位 错 运 动 的 原子 图 象 ,还 演示 品 体 中 位 错 线 穿越 无 规 障 得 物 阵列 
的 运动 情况 ， 
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1.3.1 МЕН ЯТ Burgers) 矢量 


刃 型 位 错 和 螺 型 位 错 是 两 种 最 简单 的 位 错 组 态 . 设想 在 晶体 
中 有 一 个 原子 平面 中 断 在 晶体 内 部 ,这 个 原子 平面 中 断 处 的 边缘 
就 是 一 个 刃 型 位 错 , J] S Di ti BJ A дЕ М ЕПЗ ЗЕЯ À >P 
片 原子 面 , 或 者 是 从 晶体 的 下 半 部 抽 走 半 片 厌 子 面 而 产生 , ЖЧ 
1 10(a) 所 示 . 在 螺 型 位 错 的 情形 , 则 没有 不 子平 面 中 断 在 蜗 体 内 


(c) 


图 1-10 Aik HATATA a Fl c) 5 58] [u tË (b fü d) 的 原子 组 态 . (a) 
ЯУ 是 从 原 主 面 配置 来 看 ; Сс) Tü (d) 是 从 三 维 原子 排列 来 看 
部 ,而 旦 原 子 面 沿 一 根 轴线 (近似 地 和 兹 组 原子 面 简 和 直 ) ЕДА 
前 进 . 每 绕 轴 转 一 周 ,原子 面前 进 一 个 晶 面 间距 . 在 此 轴线 处 即 为 
一 个 螺 型 位 错 . 蜡 列 位 错 可 以 看 成 是 用 一 个 以 上 述 灿 线 为 边 绿 的 
半 平 面 把 各 原子 面 切 开 , 将 各 原子 面 的 切口 的 上 沿 与 后 面 一 层 原 
于 面 的 切口 移 下 沿 相 连接 ,切口 的 下 洛 与 前 一 层 原 子 面 的 切口 的 
上 党 相连 接 而 构成 ;如 图 1 100) а. 图 1-10(e) 和 (iD 分别 给 出 
86 


fai 单 立方 晶体 中 刃 型 位 错 和 螺 型 位 错 周围 原子 排列 的 情况 . 从 图 
可 见 , 在 位 错 线 附 近 , 晶 格 畸 变 很 大 ,特别 是 在 位 错 线 近 旁 ,原子 第 
ДЕ 严重 (对 于 简单 立方 格子 中 的 刃 型 位 错 , MAR ИЯ Peierls) 和 纳 
巴 罗 (Nabarro) 估计 了 此 原子 错 排 区 域 的 范围 МЕНЕ 
约 为 0.75а,а HET EE); 在 远离 位 错 线 的 区 域 , 原 子 排列 接近 
完整 晶体 的 情形 ;而 在 此 两 者 之 间 的 过 滤 区 域 ,每 个 原子 与 它 四 邻 
原子 的 关系 是 正常 的 ,与 完整 晶体 之 间 的 差别 只 在 于 前 者 还 存在 
弹性 畸变 . | 

图 1-10(с) 和 (4d) 还 表明 ,位 错 训 看 作 是 晶体 的 一 部 分 相对 于 
另 一 部 分 滑动 了 一 个 最 小 的 点 阵 平 移 矢 量 而 产生 的 ,所 以 位 条 可 
表 述 为 晶体 中 己 滑 移 区 域 和 未 滑 移 区 域 的 分 界线 . 此 证 移 量 是 最 
小 的 点 阵 平 移 撩 量 . 对 于 为 猩 位 错 ,此 请 移 方 向 和 位 错 线 素 直 ,而 
对 子 螺 型 位 错 , 此 滑 移 方向 和 位 错 线 平行 . 由 此 看 来 ,此 消 移 天 时 
可 作为 措 述 位 错 特征 的 参量 ,这 就 是 槐 格 斯 天 量 . 

为 了 计算 植 格 斯 矢量 ,首先 必须 构造 柏 格 斯 回路 . 它 是 从 实际 
晶体 中 任 一 原子 出 发 ,围绕 位 错 线 所 作 的 闭合 回路 . 些 同 路 的 每 一 
步 都 连结 了 相 邻 原子 ,并 且 回 路 避 开 了 位 错 线 附 近 原 子 严重 错 排 
各 间 格 栈 变 很 大 的 区 域 . 如果 忽略 了 弹性 形变 市 来 的 差 元 , 则 回路 
的 每 一 步 对 应 于 晶体 的 原 胞 的 三 个 基 拓 ааа) 中 的 某 一 个 .为 
了 分 析 方 便 , 必 须 给 位 错 线 和 柏 覆 斯 回路 规定 方向 . 通常 约定 位 错 
线 的 方向 自 纸 面 伸 出 为 正 向 ,依据 右手 螺旋 法 则 , 柏 属 斯 回路 在 纸 
面 上 按 反 时 镍 方向 旋转 . 在 此 约定 下 , 设 这 个 析 格 斯 回路 在 a, a, 
和 a, 方 何 分 别 走 了 xsn 和 n; 步 , 则 整个 闭合 回路 各 步 的 天 量 和 
5 ма, + лай, + па, == b,b 就 是 柏 格 斯 矢量 . 在 图 1-10) Si (d) 
上 直接 作 柏 格 斯 回路 便 可 得 到 ;对 于 为 型 位 错 ,48 = aa RTA 
Е, В = a. aa a 分 别 是 z 和 z 方 向 的 基 和 天 , 柏 格 斯 回路 是 拒 
这 些 存在 于 位 错 中 心 四 周 原子 间 的 畸变 释 加 起 来 ,将 其 结果 以 丰 
格 斯 矢量 表达 出 来 , 故 柏 格 斯 矢量 的 数值 表征 了 位 错 的 强度 . RS 
斯 矢量 与 位 错 线 方 向 的 相互 关系 则 决定 了 位 错 的 类 型 ， 
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从 上 面 的 讨论 可 知 , 对 于 刃 型 位 错 , 柏 格 斯 矢量 与 位 错 线 垂 
直 ; 而 对 于 螺 型 位 错 , 柏 格 斯 矢量 与 位 错 线 平行 . 推 而 广 之 ,如 果 柏 
知 斯 失 引 与 位 错 线 既 不 垂直 又 不 平行 ,而 是 成 某 一 角度 ,就 得 到 了 
混 合 型 位 错 . n 1808 a l ИНЕЛЕРІ BL F 7] 
型 分 量 (5 = b, +b) 其 原子 图 象 是 ;与 此 位 错 线 正 交 的 原子 平 而 
都 变 成 为 螺 距 等 于 六 的 螺旋 面 ,与 螺 型 位 错 相 似 ; 如 垂直 于 位 错 线 
来 观察 , 则 可 见 与 5 正 交 的 原子 平面 中 斯 在 位 错 线 上 ,与 刃 型 位 
错 相 似 . | 

显然 , 柏 格 斯 矢量 只 与 柏 格 斯 回路 中 包含 的 位 错 有 关 , 而 与 所 
取 回 路 的 形状 ,大 小 .路径 无 关 . 在 完整 晶体 中 作 柏 格 斯 回路 ,或 是 
围绕 一 个 点 缺陷 (空位 或 间 际 原子 ) 作 柏 格 斯 回路 ,所 得 的 柏 格 斯 
矢量 缘 为 零 . 因此 ,可 以 给 出 如 下 定义 :位 错 是 晶体 中 的 一 种 线 缺 
陷 , 围 终 它 作 一 个 柏 格 斯 回路 ,所 得 的 柏 格 斯 矢量 (此 闭合 回路 各 
步 的 矢量 和 ) RAF. 

位 错 线 是 易 动 的 . 把 位 错 线 理解 为 已 滑 移 区 域 与 未 滑 移 区 域 
的 分 界线 , 当 滑 移 区 继续 扩大 时 , 位 错 线 随 之 运动 . 对 于 如 图 
1-10(c) 所 示 的 为 型 位 错 ,可 设想 为 位 错 线 右 侧 唱 体 被 zz 平面 分 
为 两 部 分 ,上 半 晶 体 相 对 于 下 半 晶 体 作 了 位 移 六 此 位 移 撩 量 与 位 
错 线 所 确定 的 平面 称 为 滑 移 面 . 由 于 刃 型 位 错 的 柏 格 斯 矢量 六 与 
位 错 线 牌 直 , 故 此 滑 移 面 是 完全 确定 的 , 它 与 附加 的 半 原 子平 面 重 
H 妨 型 位 错 除了 可 以 滑 移 ( 沿 滑 移 面 运动 ) 外 ,还 可 以 垂直 于 滑 
移 面 运动 ( 攀 移 ). 攀 移 相当 于 附加 半 原 子平 面 的 扩 增 或 减 缩 ,这 和 需 
要 高 温 扩 散 以 补充 或 取 走 原子 , 故 刃 型 位 错 的 攀 移 比 滑 移 要 困难 
得 多 . 从 图 1-10(d) 可 见 , 螺 型 位 错 的 位 移 矢 量 5 平 行 于 位 错 线 , 因 
此 任 一 包含 位 错 线 的 平面 都 可 以 作为 请 移 面 . 螺 型 位 错 没 有 附加 
的 半 原 子平 面 ,因此 无 梦 移 . 
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1.3.2 静止 位 销 的 应 力 场 和 位 移 场 
L y h IL i $B B) Е T El: 


FEURN, ЖЕН, sh IK rR #1 EK А РР Л ВЕ 
RE (Suk a tk) 的 平衡 位 置 的 位 移 可 用 uay) 表示 ,其 分 量 
Hust, u BALA) вї и, нози BIERA). 位 错 的 位 移 场 
可 以 利用 位 移 和 应 变 的 关系 从 位 错 的 乏力 场 得 到 ， 

晶体 中 存在 位 错时 ,位 错 线 邻 近 的 原子 发 生 错 排 ,而 在 位 错 线 
ЯҢЫ, ЖЕТ JE: gk yE WJ. 所 以 ,如 果 和 将 位 界线 近 程 的 原子 严 
重 错 排 区域 除 开 , 就 可 采用 连续 介质 模型 ,应 用 弹性 力学 来 计算 位 
错 的 长 程 应 力 场 . 具体 作法 是 ;将 位 错 线 附 近 原 子 严重 错 排 区 域 
( 离 位 错 中心 距 离 小 于 ro) 全 部 挖 空 , 剩 下 的 虎 体 用 连续 弹性 介质 
取代 . 介质 内 的 弹性 场 应 满足 弹性 平衡 方程 , 对 于 各 向 同性 弹性 介 
质 , 位 移 的 平衡 方程 为 

Jut (À д)\/ X (V su)=0 (1 — 42) 
式 中 ,yp 3 UJ y t E A УІ қ 
(Lame) 系数 ;4 = 260/1 — 2v), 
v HAE (poisson) 比 ,对 于 一 般 | 
“е зу == 0. 3. š 

下 面 首先 讨论 在 各 向 同性 介 
质 中 ,静止 的 直线 位 错 的 应 力 场 
各 位 移 场 . 

fE WE Ж1 {у f BJ F8 H ЖІТІ 
图 1-11 所 示 的 圆柱 体 , 设 外 半径 
R 和 和 长 上 很 太 , 于 是 圆柱 林 中 的 1 
场 就 接近 无 限 介质 中 的 场 . УГ рал ， 螺 型 位 错 的 连续 介质 模型 
引入 螺 型 位 错 , 图 中 已 将 圆柱 体 
的 + r ME zz 平面 割 开 , 并 把 切割 面 的 两 岸 沿 z 方向 相对 位 移 了 
一 个 柏 格 斯 矢量 5 再 胶合 起来 .上 述 操 作 使 空心 圆柱 体 产生 沿 z 方 
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阿 的 切 应 变 ,位 移 的 7, y 分 量 均 为 Оси, = и, ы 0), H = 方向 的 
Тын. I B. fE y = 0,z=> 0 ВЕЕ Е, (х,у) A-E: 
lim[a, (z, — 8) — u,(z,6)]= 5 (6 2> 0) 1-43 


因为 纯粹 的 切 应 变 不 产生 体积 的 膨胀 或 收缩 , 故 有 


V „и = 0 (1 — 44) 
注意 到 位 移 只 有 z 分 量 , 并 将 (1 一 44) 式 代 入 , 则 (1 一 42) 式 简化 
为 

J'u, аш, _ _ 
元 z 一 | (1 —– 45) 
在 满足 位 错 条 件 (1 一 43) 式 时 ,此 弹性 平衡 方程 的 解 为 
u, = у = tg ! (1- 46) 
各 应 力 分 其 为 
а. и 
„42 РЭР, 
(l 一 47) 
жетті 
Ё ду 2r жау 
КЕЛ. 当 用 闹 柱 坐标 时 , (1 一 47) 式 成 为 
— ам = E (1 — 48) 


其 它 分 量 为 零 . 这 里 ,cu 是 径 向 平面 上 z 方向 的 切 应 力 
在 为 型 位 色 的 情形 , 取 如 图 1-12 所 示 的 空心 圆柱 体 ,和 上 面 
讨论 的 一 样 , 取 外 半生 丸和 长 上 很 大 ,于 是 图 柱 体 的 场 接近 于 无 限 
介质 中 的 场 . 为 了 引入 刃 型 位 钳 , 图 中 已 将 圆柱 体 的 + = ДИ zz 
平面 制 开 ,并 把 切割 面 的 两 岸 沿 z 方向 位 移 了 一 个 柏 格 斯 矢量 8 
再 胶合 起 来 ,此 操作 使 切割 面 上 ws(z,y) 有 一 路 变 : 
lim Cu. (z, — 8) — и,(ж,0)) =b (б> 0) (1 — 49) 
因为 在 位 错 线 方向 位 移 为 零 (xs = 0) ,而 在 其 它 两 个 方向 ,位移 不 
随 z 变 化 , 即 — 22 一 0, 因此 是 一 个 平面 应 变 问题 ,平衡 方程 (1 
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一 42) РГИУ 77 Р Ж 
所 满足 的 双 谐 和 方程 ; 
YX=0 

(1- 50) 

在 直角 坐标 系 中 , (1 一 

50) 式 成 为 

(- + Cry) 
dx? ду! 

= 0 (1— 51) 

应 力 张 量 的 谱 分 量 与 应 力 图 1-12 ”为 型 位 错 的 连续 介质 模型 
酒 数 的 二 次 导数 有 关 , 应 力 张 量 中 不 为 零 的 分 量 只 有 


д 
д 
„= 9 4 | 
y (1 — 52) 
9 
O ry = --- 2 


а,, = VO + Oyy) 


而 满足 上 述 位 错 条 件 的 双 谐 和 方程 (1 一 51) 的 解 为 : 


y 一 Drsindlnr (1-53 
再 从 位 错 条 件 (!1 一 49) ЕНЕ Р 25 | 
D =— {4 2т(1— v)) `! (1— 54) 


将 (1 一 53) 式 代 入 (1 一 52) RP AAN (УУ: 
_ Dy 22°, pB + y) 
б = TIT а= D (Z уа 
_ Ру, _ 2%, _ губу ТӘ _ 
yx r? (1 гі ) 一 р (22 十 уг)? (1 55) 
rly — д?) 


__ Dr. 2У,. pz х) 
Ë тт ИЕ; (1 yi ) = D (r? + yy? 


写成 贺 柱 坐标 形式 , (1 一 55) 式 成 为 
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c, = Dsinĝ/r 
Е = Dsin@/r (1— 56) 


z, = — Dcosñ/r 


ВЕНЫ ВК Жн {И ЖЛ ШУ: 


= 0 
__D 1127 
_ D Ж д» соѕ20 
t; 5 Р É 2 “ny 二 4 1 
sk, E АЕ ЈЕ: 
и, = 0) 
u, == Ма 一 2)1пг sinf 一 а- 00 cos? 
2# # 
и, = а + (1 一 21” cos + чии sinf 
(1-- 58) 


将 从 (1 一 46) 和 (1 一 57) АМ А SB ЯП) (V SB t) (u 
ЕК y p| ЛЕ ЖЕ ña IK rh ЕГІН НИЕ ЧЕТ Е, {Н F 
有 螺 形 位 错 或 刃 型 位 错 的 晶体 中 各 杯子 的 位 置 坐标 , 据 此 可 以 画 
НИЕГЕ ДІН Ж. 
1.3.3 运动 位 铺 的 应 力 场 与 位 移 场 
以 及 运动 亿 稍 的 原子 图 象 
下 面 , 用 线性 弹性 理论 处 理 连 续 介质 中 作 勾 速 运动 的 位 错 的 


问题 . 与 平衡 方程 (1 一 42) 式 相 对 应 ,在 弹性 介质 中 运动 的 位 错 的 
位 移 场 应 满足 弹性 方程 . 


куш + (А+ ОУ X (V ш) = 95 (1—59) 


AF po 是 介质 密度 ， | 
* 8 4-3 4T F z 350. E z 27 IB] P BE PE = о ЕА ЫЙ. 
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线 弹 型 位 错 . 由 于 是 处 在 无 限 均匀 介质 中 ,位 错 线 带 着 位 移 场 作 色 
速 运动 ,所 以 螺 型 位 错 的 位 移 矢 量 总 是 平行 于 位 错 线 , 即 只 有 = 分 
量 . zx。 = u, = 0, HERR = V u = 0, 因 此 (1 一 59) 式 简化 为 
2%, 9%, 19%, 
ах? ду? С? ar 


(1 一 60) 


式 中 的 C, = {2 为 弹 
性 横 波 5( 即 横向 声波 ) 
ШЕ, (1 一 60) 式 就 
是 弹性 介质 中 横 网 切 变 
波 传播 的 波动 方程 ， 
引入 一 个 运动 坐标 
Ж (ww,y',z'),， 它 相对 
于 此 运动 的 媒 型 位 错 是 图 1-13 ЕТЖ БЕЛА Т Суох) 
ша {ЖЕ 36 in ДӨЙ 
ШЕ ME. 在 开始 y ,= ,位 错 线 固定 在 = 33 
时 刻 (t 二 0), 新 , 老 坐 
HARO, ORS, O ИЖЕ о с ЕИ ЈА 
( 见 疼 1-13). 注意 到 (1 一 60 RAE (ЕЖЕН 9 5 y Fe НИИ , ñ 
后 者 在 洛 仑 兹 变换 下 方程 的 形式 保持 不 变 ,次 可 取 新 , 老 坐标 的 变 
换 关 系 有 类 似 于 洛 仑 兹 变换 的 形式 ， 


= = (x= vt)/p, 
y = y 
z' = z 


(1 — 61) 
# = а a) B. 
2 
Ë, 一 一 (1 =: е” 


кз] 61) 式 的 变换 后 ,(1 60) 式 仍 保持 原 有 形式 ,只 需 


将 新 坐标 代替 老 坐 标 , 即 有 
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дм. 9%, 12%; 
ЕРЕ а ду'? к С? 2 ;? 
наннан" кни 
位 错 的 位 移 场 и, 应 不 随时 间 变 化 , 即 应 有 5 у; 一 0, 所 以 (1 一 62) 


式 成 为 


(1- 62) 


J'u, ди, 
ar!” “т ду'? 
КУЮ УЕЗ О 一 45) 式 完全 一 样 .同样 ,在 此 
ЯТА ШАА А С у ‚2! ) 中 y f t 2 iF 18, 7 E gt IL WA 
型 位 错 的 (1 一 43) 式 相 同 , Вр 

lim(z, (z — 8) — utr so) = b, (> 0> (1 — 64) 
依 此 类 推 ,满足 位 错 条 件 (1 一 64) 式 的 双 谐 和 方程 (1 一 63) 式 的 
解 是 


= 0 (1 — 63) 


| 6, Ai | 
d(T у) = т =) (1- 65) 
ш 1 By 
BI о м„(х,у,{} r tg. c= si 227 | (1- 66) 
相应 的 应 ға 
s = b ай ___ 
li дт (х — uy + Ву: 
(1- 67) 
_ А0 P(x — vut) 


7 


当 v = 0 В, (1 — 66) 和 (1 一 67) ЕУ Е {Уу ЕДЕ. 
SSA {у ба ЖЕ JJ A fy sb rH AA y S НУЛЯ, Н E hy 2F 
(伸缩 形变 ). УТАУ ЛЕ ЫЙ [Ө] РӨК J {ЕТЕ AB EK А, ЕЛУ ЛЕШ tg АЈ 
波 的 传播 相 联 系 . 所 以 ,对 于 刃 型 位 错 得 不 到 如 (1 一 62) 式 那样 只 
有 单一 波 速 的 波动 方程 , 为 了 处 理 匀 速 运动 的 为 型 位 错 问 题 , 需 要 
对 基本 运动 方程 稍 作 变 换 . 
利用 矢量 分 析 中 的 便 等 式 
Чи = V (V :и — V X (V X u) (1 — 68) 
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将 位 移 场 满足 的 基本 运动 方程 (1 一 59) 改写 为 
и =— иу X СУ X u + А + 2 VY <u) 


(1 — 69) 

分 别 令 
G =V хи (1 一 70) 
Н = Ху и (1 — 71) 


于 是 (1 一 69) 式 成 为 

ой = — ну X G + (А + 2 V H (1— 72) 
对 于 一 个 平行 于 z 轴 , 以 速度 v 在 zz 平面 内 作 匀 速 滑 移 运动 的 直 
线 刃 型 位 错 , 其 位 移 分 量 u, = 0,и„,и, 天 0, 故 有 


G = у хи = (26 — k= Gk (1 — 73) 


ду 
дч, дн, Е 
В е 1—70) 
将 (1 一 72) 式 取 诈 度 ,得 到 
26 әс 1% (1-- 75) 


如 前 所 述 , 式 中 的 C = Мои ТЕ ОРОЙ РУ. (1 一 75) 
式 的 形式 与 运动 螺 型 位 错 的 (1 一 62) 式 相 似 , 所 不 同 的 是 以 表示 
刃 型 位 错 切 应 变 部 分 的 G = S G ft T ЛИИ ЕЛЫ 
移 wu. 将 (1 一 ?2) 式 取 艇 度 ,得 到 

23H 2H _ 1 3!H 

ar’ ду? С? дг? 
式 中 的 C, = СКА + 20) Лоо) 为 介质 的 弹性 纵波 ( 即 织 加 声波) Ж 
Д.Н = V "ЕРЕШЕ АЛЕ ЖІ БІЛЕ (1 一 
76) 描述 了 刃 型 位 错 运动 时 ,其 主 应 变 部 分 随时 间 变 化 的 情形 . 

现在 作 类 似 于 (1 一 61) 式 的 变换 .除了 = y #l = 二 x 外 ,对 于 

(1 一 75) 式 ,相应 于 横向 声速 C,, 确 定名 和 zt ;而 对 于 (1 一 76) 
式 ,相应 于 纵向 声速 C,, 男 外 确定 B. х, ste. 


(1— 76) 
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қанат, С, = {+ 2u) оу!" 


в = 1 5) в, = (1— >)! 
С? r So ААА. (1 — 77) 
>! = (> — vip, т, = (x — mt) / B, 


t = a aB t= G — aE 


与 上 面 关 于 螺 型 位 错 的 讨论 相同 ,经 过 (1 一 ?7) 式 的 变换 之 后 , (1 
一 75) 和 (1 — 76) 式 分 别 成 为 


aG IG _ | _ 
дт? МІРІ Ns; Ü (1 78) 
941 oH 
жп Т gd (1- 79) 
对 于 静止 位 错 , 有 
| G ec 2%. H cc >, (1 — 80) 


因此 ,对 于 运动 位 错 . 在 运动 坐标 系 中 可 设 (1 一 78) 和 (1 一 79) Ж 
的 尝试 解 分 别 为 


Giz, y. t) = An, H (z, yst} = = (1— 81) 
式 中 АЯ B 为 得 定常 数 , 和 而 


“i i 
| (1—82) 


ri = ж + у? 
从 (1 一 70), (1 — 71), (] 一 78) 和 (1 一 79) 式 可 求 得 
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Ән, Byc? АЙ, УС! 


w riy? т?ъ? 
à:, _ ВуС:В: _ AB,yC; 
ТАТЕ 20)? И ЕГЕ 
i бі (1 — 83) 
ж, АлС _ ВВ, Са 
джо гіл? riv’ 
ди, _ АхС? _ B8.=,C. 
y r пш 
ЕЗІН ЖЕН 
b 

өк 2 > 0 

| 7 ИИ 4 (1 — 84) 
-= ФЕ _ b y<0 

2 


各 在 表面 上 应 为 应 为 零 的 条 件 ( 例 如 ,可 取 位 错 在 一 个 有 限 厚 度 的 
无 限 平板 中 运动 ,平板 的 上 .下 两 个 表面 平行 于 位 错 的 清 移 面 且 和 是 
自由 表面 , 则 此 两 个 表面 上 都 不 应 该 有 净 力 ), 可 确定 4 积 BB, 最 后 


得 到 
„= Са 09) — ау) 
ғ? 
u, = EC, lacz? + Biy:) 一 7 ln(z? + 22у?) 
(1 一 85) 
агаш” 
= Г x? Ву? Pr 2 
2 20 16 ° 十 ] — ë) с В, 
_ ep ty, В, Е В, 
буу 一 тр! т. 十 Biy 2 г? + By ү) 
д. = Co- + о,,) 
(1 — 86) 
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以 上 各 式 中 的 名 一 +O + Bb. 

利用 (1 一 66) MA 一 85) 式 , 可 分 别 算得 作 匀 速 运动 的 螺 型 
位 错 和 六 型 位 错 在 t 时刻 的 位 移 分 量 , 把 它 登 加 在 完整 晶体 中 各 
原子 的 平 衔 位 置 的 坐标 上 ,就 得 到 了 该 时 刻 有 螺 型 位 铺 的 最 体 和 
有 刃 型 位 错 的 晶体 中 各 原子 的 位 置 坐标 . 依次 将 时 介 增 加 Аз, 在 
屏幕 上 用 光 点 把 当前 时 刻 各 原 千 的 位 置 显示 出 来 . 随 着 所 取 时 间 
的 增加 ,就 在 屏幕 上 看 到 位 错 运动 的 原子 图 参 , 如 图 1-14 Ж. 


nha cp e€ n mp 46 Y f x aq nn n $ e CcclLel .L.l D Dg.L[ [ D.o[Lov⁄cOË-O G $ L6óGrç K € é& t < € $ € w q Fa W € kh a оо 

a € e ww m * Fr p & "гт m fl na e#0 et n f n |, k ñ 6 ú 4 w в k а ш f в э k $ 4 „ э é 

np nenta Фет таза s k S = ен k ç =< š; qk в Фф ЕШ a Ф «3 = ж р 

азалы акт ағыт” fF ppan „ээ в › э Фа „ F о 5 s mQ 

ean k na w wt a *® * 4 6 € в + а о ш „ * ы n 6 š ж w k Ç; $ Чоу 5 h э n «а 

4«аззенвтевсч4е е" Феаесаев - 

-шаізачачвавчетебт уу a h еи 

KK sa q a thp * wF “ ағ. %Фа«-а- кр = s sz úá ьа n k п о в $ 4 4 Z 6 x 6 

„һа я m w з= >“ °з f #4 = K - ш ш э® ч В В ш п а . р >= в «= ®Ф Ф h ® -: - F о 
„к +» а * r * é" * а4тФкаате.  ,,ш% рь ЕЕЕ п ят бі s s Е 
„-« «ьа wa € F q na э за»ъу ,,064 40695 6 @%* 64 š еь пэ ñ h 
„ ra m r sa > nm (a aÍ *® ® n n m # вап /(,,ыал, k ç э s у ш ой = n э > n у 4 > 
a a ary ma RF“ * з q = p qa a па &# G 6 F в m ш a b BE F 58 в $é n 9 9 а 
«в . * mw ш * w = т * é " ras + гт | lll llllIa I u s Wah а д n «ч ъё кан n r & = „ nh 
-1 =“ w mna p 44 4 a w =w q Fm r A _ LV. gç F ú# b; e цщ sn атш ш n Ф в в HB ® as n р 
- ат m m & > * n aq m anak an 4ғякае5 Қ |  GXLLIIIIIIIIIIIKIeA r & 5 = n n j n f F # n Ф < & 4 h 
ісі (€ m коса n аата k жаса h } їа и ь t в $ т ñ в е Ff hk F á G q n kà S й6 w h я 


a < w p w =" = * 6 n Y r == pp $ $r 9,44 %*% F вт £ Ф Ф в f n "h pk ра 


图 1-14 ”运行 程序 1-3 EDGDSL ,在 屏幕 上 得 到 的 作 匀 速 滑 移 运 动 的 刃 弄 


位 错 的 原子 图 象 
(a) AE HEIKH bt Е, 1E E t [H cH ЕЕ ЕЛІ БІ» 
(6) Ü 2 £ ЕН A cH Er Wa su ЕЛІК ЕЖ 


1.34 ”外 力作 用 下 ,位 错 线 克服 障碍 物 运 动 
前 面 分 别 讨论 了 无 限 大 介质 中 静止 的 与 运动 的 孤立 直 位 错 的 
弹性 应 力 场 与 位 移 场 . 实际 上 ,这 样 的 孤立 位 错 用 乎 是 不 存在 的 ， 
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a 体 中 通常 存在 大 量 的 各 种 各 样 的 缺陷 (如 空位 .和 何 辽 原 于 ,异类 
溶质 原子 和 第 二 相 粒 子 等) ,这些 缺 陷 产 生 的 弹性 应 力 场 将 与 位 钠 
的 弹性 应 力 场 交互 作用 ,而 影响 其 运动 状态 .我 们 把 这 些 影 响 和 阻 
得 位 错 运动 的 缺陷 统称 为 障碍 物 . 特别 是 当 其 影响 范围 相对 于 位 
错 线 长 度 来 说 很 小 时 , 称 为 障碍 点 . 晶体 中 存在 的 其 它 位 错 , 也 可 
能 对 位 错 运 动 起 着 类 似 于 障碍 物 的 作用 ,为 了 便于 讨论 位 错 克 服 
障碍 物 的 运动 ,我 们 把 位 错 ( 它 实质 上 是 晶体 中 原子 错 排 的 一 种 组 
态 ) 看 成 是 一 个 物理 实体 , 它 象 一 恨 弹 性 弦 线 ,具有 了 能量 密 度 和 线 
张力 , 它 在 外 力作 用 下 可 以 弯曲 ,运动 ， 

如 前 所 述 , 位 错 的 存在 使 周围 介质 产生 了 弹性 应 蛮 , 因 而 贮存 
有 弹性 应 变 能 . 已 算得 克 型 位 错 的 单位 长 度 的 能 量 约 为 曙 型 位 条 
的 1.5 倍 ,并 得 到 实际 晶体 中 单位 长 度 的 混 台 型 直 位 错 的 能 量 可 
以 用 и 表示 . 如 取 2 = 4 X 10'! ЖАН /厘米 :,b = 2.5 X 10 5 8 
米 , 风 位 错 的 能 量 约 为 2.5 x То 尔格 / 厘米 ,或 4 电子 优 / 原子 
ә“ | 

位 错 线 印 长 ,其 能 量 愈 大 . 为 了 减 小 能 量 则 应 尽量 缩短 其 长 
度 , 所 以 位 错 线 与 弹性 弦 线 相似 ,其 有 线 张 力 - 位 错 的 线 张 力 可 十 
义 为 :在 位 错 的 长 度 增加 一 无 限 小 量 时 ,其 能 量 增 其 5W KER 
E ôL HAFTEN To. 8 


= сор 《1 — 87) 


i BB, ОШ ë np bsk ЛЕЛЕ (2 5 09) 4 倍 . X E: N Ж, 
ЖУРЩ. оТ ЭЖИ ИЙ, CL Н ЕЛЕЕ LA 
长 度 的 位 错 线 的 能 量 也 增加 了 ; 纯 刃 型 位 错 则 不 同 . 灾 曲 时 增加 了 
螺 型 位 错 成 分 ,虽然 位 错 线 变 长 了 ,但 每 单位 长 度 的 位 错 线 的 能 量 
H 减少 了 . 在 实际 问题 中 ,位 错 组 态 比较 复杂 ,确切 的 能 量 计算 非 
常 困难 , 故 通常 使 用 位 错 线 张力 的 简单 近似 式 


Т, = Z pb | (1 — 88) 
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如 和 糙 作 用 在 晶体 中 的 外 加 应 力 场 ( 也 可 以 是 晶体 内 其 它 缺 陷 
产生 的 弹性 应 力 场 ) 表示 为 直接 作用 在 位 错 线 上 的 力 , 在 讨论 位 
E 线 受 力 运动 的 问题 时 会 更 为 形象 ,更 为 便利 . 为 此 ,设想 一 个 外 
加 切 应 力 t 沿 柏 格 斯 矢量 5 的 方向 作用 在 晶体 的 滑 移 面 上 ,和 它 使 长 
为 上 的 位 错 沿 此 清 移 面 在 5 方向 请 动 了 距离 ds, T нн IK ri ЙН 
移 区 域 的 面积 增加 Lds. ТЕ ЕРІНЕ E. F DS ка 
ЖЕНЕ í ER ES 5 , НІМ ІРГЕНІ Ж 

W = (tLds)b (1 — 89) 
其 效果 相当 于 在 每 单位 长 度 的 位 错 线 上 施加 一 垂直 于 位 错 线 的 力 
FF, 此 力 使 位 错 线 运动 了 距离 ds ,所 作 的 功 为 
W = FLds. (] — 90) 
比较 (1 一 89) 和 (1 一 90) 式 , 得 到 作用 在 单位 长 度 位 错 线 上 的 力 
Е = rb (1 — 91) 
JH, J F SEREA, рМ, ЛЕШ ЕАНУК 7] т WY AH FS Jr 
矢量 5 的 情形 ,对 于 刃 型 位 错 , 下 和 rr 同 向 ,而 对 于 螺 型 位 钙 , 下 和 = 
wA. 

品 体 中 的 障 得 物 使 位 错 线 限 制 在 该 处 ,不 能 目下 运动 ,此 即位 
ЕЕ ЕТЕ. 当 邹 应力 足够 大 时 ,可 使 位 错 线 从 障 人 得 物 解 脱 ,恢复 
自由 ,这 称 为 脱 钉 . 考察 一 个 两 端 被 钉 扎 的 位 错 线 ,在 引力 作用 
下 , 位 错 线 的 未 被 杀 扎 缉 分 继续 向 李 运动 , 膏 曲 成 弧 形 ,其 平衡 曲 

率 半径 R, 可 从 位 错 的 线 张力 的 合力 与 作用 在 位 错 弧 上 的 外 为 析 
等 的 条 件 得 到 ( 见 图 1-15); 


2Тозіп 一 ЕВ, (1 — 92) 
故 有 
— io _ = 


R, 是 在 外 加 切 应 为 + 的 作用 下 位 错 线 可 弯曲 的 最 小 曲率 半径 ， 
对 于 一 给 定 的 外 加 切 应 力 z， 有 相应 的 临界 曲率 半径 R. 考察 
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一 段 两 端 说 钉 扎 的 位 错 
弧 金 运动 情况 , 设 两 钉 
PLAE SA D, WÉ 
B 236462 R, 3É fü 8 
0. $ 8 < zx B B > Ё, 
时 ,在 外 如 切 应 力作 用 
下 , 弧 将 不 断 扩 展 , 相 应 


的 曲率 半径 不 断 减 小 ， 

Ар ТИЈ РА 

位 错 线 钉 扎 住 ,或 是 弧 

МШ ЖРА АЗЕЯЦЕЯ 图 1-15 在 外 力 下 作用 下 ,一 段 两 端 被 钉 扎 的 
值 R 为止， M Bi 位 错 线 夸 曲 成 弧 形 , 位 错 线 张力 的 合 
1-16《a). Б, < 2, 力 与 外 力 达 到 平衡 


位 错 扩展 会 达到 R = 六 ,相应 地 6 = r, 此 时 位 错 线 成 为 不 稳定 而 
继续 扩展 ,相应 地 不 断 增 大 ,直至 遇 到 新 的 障 得 点 被 钉 扎 住 或 跑 
出 晶体 为 止 , 见 图 1-16) 

在 钉 扎 点 ,位 错 运动 受阻, 导致 位 错 线 这 昌 , 此 容 曲 位 错 的 线 
张力 的 合力 ,力图 使 位 错 从 钉 扎 点 逃脱 . 设 钉 扎 点 两 侧 的 位 错 线 各 
为 一 个 圆 弧 ( 见 图 1-17) ,在 钉 扎 点 分 别 作 此 两 弧 的 切线 ,此 两 切 
线 的 夹 角 为 9, 则 在 钉 扎 点 处 位 错 的 线 张力 的 合力 为 


f= 2Т сов + = pd cos + (1 — 94) 
k jk ARAE H 准时 ,位 错 逃 脱 钉 扎 继 续 运 动 . 脱 钉 力也 

я ARETA р RR СІ 一 94) 式 得 到 
(1-- 95) 
Ш ЖЕГИ. Р О ЕНУ УС ЯНАР T sk FIRST Ор й), W| +T 


发 生 , 脱 钉 力 和 脱 杀 角 皆 可 反映 障碍 物 对 位 错 的 钉 扎 强 度 , нн Жер 
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图 1-16 在 外 加 切 应 为 r+ 的 作用 下 ,曲率 半径 为 尺 的 位 错 狐 的 运动 欧 势 ， 
(а)0 < x, 83 R < R, ВТ. ШИТ 8 8 R > R, БИ 
П. КЕИ ТЕШЕ £t ET É) R = R, [ДЕ {И ШЖ. 


ЭР. <2 ТЕАТРТ 


展 ,相应 地 R 不 断 增 大 (点 线 为 R 二 二 ДЕНЕ. 


位 铬 的 运动 直接 受 
障碍 物 的 密度 \、 分 
AA AR ОП ET FLIR Pe 
的 制约 . E 58 $] +L 
的 情形 ,位 错 线 儿 


乎 是 平 直 运动 ( 见 

ЕМ. 1-18). 而 在 强 

钉 扎 的 情况 下 ,位 图 1-17 打 扎 点 两 侧 位 错 的 线 张力 的 台 力 倾向 于 
错 运动 可 能 在 某 些 fE fu ti gk LET FL ,继续 向 前 运动 
ЕЛІН, (НИ 


A 08 яя АКЕГЕ, tu i 5 3 hi) WI T ЕЕ. KER 715] 675 7) 

前 位 错 的 取向 没有 一 定 关 系 , 缚 果 是 在 位 错 线 上 形成 一 个 之 的 向 

前 的 突起 ,如 图 1-19 所 示 . 一 般 说 来 ,外 加 切 应 力 一 定时 ,障碍 物 
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的 钉 扎 强度 大 , 则 位 错 运动 困难 (反映 在 上 图 中 是 位 错 运动 距离 
短 ). 在 金属 中 加 入 合金 元 素 以 形成 回 深 原子 ( 固 溶 强 化 或 高 度 
弥散 的 第 二 相 粒 子 ( 弥 散 强化 ) 等 强化 材料 的 手段 就 是 基于 此 原 
m, 


1-18 ”运行 程序 1-4 DSLMOV {FAW FEE ta ht ЕР 
列 运动 的 图 象 . 脱 钉 角 Ф. = 150", 图 上 示 出 位 错 线 从 图 中 顶部 出 
4 НУУ n = 20,25,30,35,40《 相 对 单位 ) 时 ,依次 到 达 
的 位 置 , ( 左 图 》 

图 1-19 ”运行 程序 1-4 DSLMOV 得 到 的 位 错 穿越 无 规 分 布 的 强 障 碍 点 阵 
列 运动 的 图 象 . 脱 钉 角 二 39, 图 上 未 出 位 错 线 从 图 中 顶部 出 
кН г = 30,55,80( 相 对 单 科 时 ,依次 到 达 的 位 
Е.О) 
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程序 1-3 ЖИА ЛАНУ А БІ Аҡ 
一 .程序 名 :EDGDSL 


二 ,功能 


输入 位 错 的 柏 格 斯 矢量 .运动 速度 和 介质 的 纵 、 横 声波 速度 ， 
计算 在 各 向 同性 连续 介质 中 刃 型 位 错 的 时 间 有 关 的 位 移 场 ,在 屏 
幕 上 上 显示 简单 立方 点 阵 中 刃 型 位 错 滑 移 运动 的 原子 图 象 . 


二 ,原理 


1. 无 位 错时 ,各 原子 处 在 正方 格子 的 结 点 位 置 (IX,1Y). 97 
型 位 错 存 在 时 , 每 原子 的 位 置 偏 离 平 衡 结 点 位 置 一 个 偏 移 量 
u (IX ,IY),u,(IX,IY). 

2. 采用 (1 一 85) 式 , 计 算 在 某 一 时 刻 +, J] a A E (IX. IY ) 
pe EB ESE а, ПхЛҮ, ffl a (IX TY D. 

3. 在 屏幕 上 ,用 白色 光斑 表示 原子 . 当 位 错 以 速度 > 运动 时 ， 
在 ! 时 刻 各 原子 的 位 置 是 IX + u (ІХ IY ,i) 和 IY +a (IX.TY ,t). 
每 次 对 :上 增 帮 一 小 量 馆 ,计算 在 上 十 全 时 刻 原 子 的 痢 位 置 . 在 屏幕 
上 消去 上 一 时 刻 的 光斑 并 画 上 当前 时 刻 的 光斑 , 屏幕 上 就 显示 出 
Шу r daik F J] 8 ЕН ЫЫ ТІН. 


О. ЕВ 1 — 3 


五 ,变量 说 明 


* 为 输入 变量 , 取 相 对 单位 ， 
В” ,; 柏 格 斯 (Burgers) < Ë: b. 
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каи 
输入 位 错 柏 矢 , 运 动 速度 ,介质 中 纵 , 模 声 被 速度 和 时 间 步 长 
转换 到 屏幕 的 图 形 显示 模式 


МТІМЕ--15--90/У 


ШР {2 ТЕХ. НАЕ ЕВА ИБ Е ССХ,СҮ) 


ГҮ--ГҮ-Ғ10 


НЕНЕШ-НЯКЯЯЕЕКЕЕТЕЗЗІНИІЛІУ ШІН ЕЖ 
<NE 
М 


Y 


回复 到 屏幕 的 字母 ,数字 显示 模式 
(Яя ж) 


流程 图 1 一 3 
V" :位 错 运 动 速 度 v.0 < ç < 1. 


< 
< 
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CE :介质 中 纵 声 波 的 速度 C, ,C, > у. 

СТ*;:ЙИА ЧЖИ Ж ЖЕ С,,С, > vC, < C.. 

DT ,时 同步 长 Az, A: > 1. 

IT :时 刻 t. 

IX ,IY :晶体 中 原子 的 平衡 位 置 的 z,y 5 Ph. 

UX,UY, 原 子 于 t 时刻 在 xz,y 方向 偏离 平衡 位 置 的 位 移 量 

GX(0,J,GYG0,D #fBX0,JD,BY(0,Jy:1=—95,95;,J =— 
95,95. 第 1 列 第 ] 行 的 原子 在 当前 时 刻 t 和 上 一 时 刻 (z 一 
At) ВЈ х,у Ж. 


六 , 子 程序 说 明 


SCREEN ПС) #I PLOT(IX ,IY ,IC) ЖНЖ ЕНГЕНШЕ 
汇编 子 程序 ,详细 说 明 参 见 程 序 7-7 SOLITN. 


七 .计算 实例 


їй МАЛАЕ ЯТ Ж Ж 5 = 10, 位 错 运 动 速度 v= 0.6, ña К.И 
ЖЖЖ BF C, = 2 #l c, = 1 MAER Аг = 2(1 < At 10). 屏幕 上 
显示 ;在 一 个 排 成 立方 格子 的 太子 阵列 中 , 当 一 刃 型 位 错 从 左 同 右 
窟 过 时 ,阵列 上 各 原子 的 移动 情况 , 见 图 1-14. 

程序 运行 时 ,采用 人 机 对 话 方式 , 按 屏 间 提示 以 和 贞 由 格式 键入 
输入 数据 ,运行 时 在 屏 上 显示 刃 型 位 错 运动 时 的 原子 图 象 ， 

运行 招 令 :EDGCDbSL 


八 , 源 程序 ,EDGDSL + FOR. 


PROGRAM EDGDSL 
INTEGER ж 2 GX(21,21),GY(21,21),BX(21,21) 7 
 BY(21,21) 
DATA РІ/3. 1415926/.ІХ0/150/,ТҮ0/100/ 
WRITE ,'(” INPUT THE BURGERS ", 
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/ “VECTOR, b = “N° 
READ (#, 2) В 
WRITE ( < ,'°° INPUT VELOCITY ОЕ MOVING" 
/ ‚ ” EDGE DISLOCTION: v = 70909? 
READ (* ,*) V 
WRITE (» ,’'( INPUT VELOCITY ОЕ” 
/ ,“LONGITUDINAL SOUND — WAVE, Ce = "99 
READ (+, ж) СЕ 
WRITE (x ,'(” INPUT VELOCITY ОЕ " 
/ ,TRANSVERSE SOUND — WAVE, Ct = "ЛУ? 
READ (* ,* ) CT 
WRITE (ж ,'(” INPUT LENGTH OF TIME — ” 
/ "ӘТЕР, DT = '*\)”) 
READ (* ,* ) DT 
IF(DT.LE. 1.0) DT = 1.0 
ЕТ = SQRT(1 — Vx V/CT/CT>5 
RE = <5ОКТ(1- УжУ/ЛЕ/СЕУ 
REZ = RE + RE 
RT2 = RT * RT 
С1 = B<CT =CT/PTI/V /V 


С2-- С1/2.0 
EE = 1.0 + V/2/CT/CT 
СЗ = EE/RT 


CALL 5СКЕЕМ(4) 

NTIME = INT(90. 0/У) + 15 

DO 50 IT =— NTIME,NTIME + 10,1NT(DT) 
L = 0 

DO 20 IX = — 95,95,10 

XX = FLOAT(IX) — V < FLOAT(IT) 


Хі = ХХ + ХХ 
–_ = |, + 1 
М = 0 


DO 10 1Y = ~ 95,95,10 

Y2 = FLOAT(LIY) # FLOAT(IY) 

ZI = RE *FLOAT(IY) 

Z2 = RT * FLOAT(IY) 

UX = СІ »(АТАМ?2(71,ХХ)- ЕЕ «АТАМ2(22,ХХ)) 

UY = C2 x (RE + ALOG(X4 + REZ x Y2) — C3* ALOG(X4 + RT2 ж Ү2)) 
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10 
20 


30 
40 
50 


[ = [X0 + [X + INT(UX) 

] = IY0 — ГҮ — INT(UY у) 
М=м+1 

IF ((1.бТ. 290). OR, (LLT. 5›) СОТО 10 
IF ((.СТ. 190). OR. J.LT. 50) СОТО 10 
GX (L M) = I 

GY(L,M) = J 

CONTINUE 

CONTINUE 

DO 401- 1,20 

DO 30 } = 1,19 

CALL PLOT¿(BX(I,J),BY(I,]),0) 
BX(L,J = СХА, 

BY(1,Jy = GY, JD?) 

CALL PLOT(GX(1,J) ,GY LI] 3) 
CONTINUE 

CONTINUE 

PAUSE? ” 

CALL SCREEN<2) 

STOP 

END 


程序 1-4 AiE Ek ЯНА JAN ha ü 


БЕН ВЕ 1] 22 2J BU i R 


二 .功能 


输入 随机 障碍 点 阵列 、 嘻 宁 多 和 外 加 切 应 力 的 值 , 在 屏幕 上 显 


示 晶体 中 的 位 错 线 在 外 加 切 应 力作 用 下 运动 , 税 障 得 物 钉 扎 和 脱 
钉 的 过 程 . 


108 


三 ,原理 


1. 晶体 周 界 ,障碍 物 和 位 错 线 的 显示 ;在 屏幕 上 ,用 绿色 线 拒 
显示 所 取 品 体 部 分 的 周 界 . 用 红色 光斑 显示 无 规 障碍 点 阵列 ,每 个 
障碍 点 的 坐标 由 随机 数 发 生 器 提供 . 用 白色 线 显 示 位 错 , 随 着 程序 
运行 ,在 屏幕 上 显示 位 错 线 穿 越 障碍 物 阵列 运动 的 形态 . 

2. 位 错 线 上 障碍 点 顺序 的 链表 表示 :每 一 障碍 点 有 一 编号 ,位 
错 运 动 时 , 钉 扎 位 错 的 障碍 点 不 断 更 换 . 在 程序 运行 时 ,需要 对 每 
一 时 刻 位 错 线 上 的 障 得 点 从 右 到 左 逐 个 编号 ,为 此 ,引入 链表 指针 
IP, 在 链 上 ,当前 障碍 点 的 地 址 码 是 ICA( 即 数组 DS(1,J) 的 序号 
]) ,其 坐标 是 zx = DS(1,ICA),y = DS(2,ICA); 下 一 个 障碍 点 的 
Hha 505 POCA) ,其 坐标 为 z = DSO  IP(ICA),y = DS(2, 
IP(ICA)), 余 此 类 推 .到达 链 末端 有 IP(1) = 一 1 在 位 错 线 运动 过 
程 中 , 若 遇 到 了 新 的 障碍 点 ,就 将 其 插入 链表 中 的 相应 位 置 . 

3, 到 镜 象 点 使 有 限 边 界 成 为 自由 边界 ,为 了 消除 所 取 晶 体 部 
分 为 有 限 带 来 的 影响 ,对 于 位 错 线 上 紧 挨 左 右 两 侧面 边界 的 障碍 
点 , 在 边界 外 侧 取 相应 的 镜 象 点 补充 到 链表 中 . 这 样 ,在 运动 过 程 
中 ,位 错 线 将 始终 与 侧面 边界 垂直 . 

4. 位 错 弧 的 扩展 运动 :对 于 一 段 两 端 被 障碍 点 钉 所 的 位 错 弧 ， 
м < z HR >R EME т, ЕНТ AED R, АУ 
的 曲率 半径 不 断 变 小 ,直至 遇 到 新 的 障碍 点 被 箱 扎 住 ,或 者 是 弧 的 
曲率 半径 达 到 (1 一 93) 式 所 示 的 临界 值 (R = R, R, 为 对 应 于 与 外 
加 切 应 力 r, 平衡 时 位 错 弧 的 曲率 半径 ) 为 止 , 如 果 R 等 于 或 小 于 
两 钉 扎 点 虐 离 的 一 半 (R, < 二 ,那么 弧 扩 展 时 ,会 出 现 尺 = 号 ,网 
x 等 于 x, 位 错 弧 继续 不 断 扩 展 ,其 曲率 半径 R 不断 增 大 ,直到 过 
到 新 的 障 得 点 被 钉 扎 住 为 止 . 

5. 位 错 线 从 障碍 点 脱 钉 ; 当 一 障 得 点 两 侧 的 位 错 弧 的 切线 间 
Ж ФП 一 95) 式 所 示 的 脱 钉 角 欠 时 ,位 错 从 此 障碍 点 选 
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脱 , 将 位 错 线 上 的 相应 点 取 名 为 脱 钉 点 . 脱 钉 后 ,由 于 线 张力 ,位 错 
线 继 续 前 移 , 因 而 脱 杀 点 也 前 移 , 可 和 将 脱 杀 点 看 作 一 个 移动 的 “ 准 
障 得 点 ” 脱 杀 点 与 左 , 右 侧 的 紧邻 障 得 点 各 构成 一 个 位 锯 弧 ,此 两 
锦 不 断 扩展 ,直至 洲 合 成 以 此 两 障碍 点 为 奖 氮 的 一 个 位 钉 弧 为 止 . 
如 果 在 两 弧 扩 展 过 程 中 , 遇 到 新 的 障碍 氮 则 中 途 第 条 扎 住 . 
ЛЕЕ ЕЖА 和 5 的 两 个 过 程 ,即位 错 线 不 源 扩 展 , 箱 
fL. 上 脱 钉 ,又 扩展 ,直至 位 错 线 上 各 相 邻 障碍 点 问 所 形成 的 位 馈 弧 
的 线 张 力 与 外 加 切 应 力 洛 达到 平衡 为 止 . 此 即 在 屏 帮 上 显示 的 在 
该 外 加 切 应 力作 用 下 ,位 错 线 穿越 无 规 障 得 点 的 涟 列 运动 的 过 程 . 


1. 主流 程 图 
2. ЕНІ ТЕГІ, ЖАЙТ: 
3. 位 错 从 障碍 点 脱 钉 部 分 


五 ,变量 说 明 


* 为 输 入 变量 , 取 相 对 单位 ， 

IXB1,IYB1,IXB2,IYB2,1IC: 记 到 唱 体 部 分 的 边界 线 坐 慰 ,IC 为 
颜色 码 . 

NOBS ' ;障碍 点 的 总 数 ， 

IRAN" ;随机 数 发 生 器 的 随机 参量 . 在 计算 开始 时 赋 初 值 ， 

RAND(L):L=1,2. 随机 数 发 生 器 输出 的 在 0 和 和 1 之 和 的 随机 数 . 
每 次 产生 一 对 ,分 别 用 于 一 个 障碍 点 的 х,у 坐标 . 

OX(IT) ,OY(1);I=1,NOBS, 是 第 I 个 隐 得 点 的 坐标 xz A у, H Fñ 
机 数 发 生 器 提供 , 其 中 I= 1,2 的 两 个 障碍 点 坐标 由 
程序 给 定 , 这 是 为 了 保证 起 始 时 位 错 线 平 直 推进 而 设 
轩 的 位 错 线 最 先 过 到 的 两 个 障碍 点 ， 

DS(I,J);1==1,2 分 别 为 第 J 个 障碍 点 的 xz 和 yy 坐标 . 前 面 定义 的 
OX(1) ,DY(CD 的 障碍 点 编号 I 是 按 随机 数 产 生 的 顺 
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[开始 | 


输入 障碍 点 数 且 ,随机 参数 初 值 , 脱 杀 角 , 切 应 力 梓 
值 ,外 加 切 应 力 改变 次 数 和 各 次 的 外 加 切 应 力 值 


іше жін ЖАС 
转换 到 屏幕 的 图 形 显示 模式 
夯 所 取 晶 体 部 分 的 周 界 ,五 随机 障碍 点 
1-2. 
a [Dehi | 
_ 碱 小 位 错 弧 的 曲率 半 和 BR | 


从 
障 
得 
ү" 
脱 
124 


流程 图 1 一 4 主流 程 图 ) 


序 编号 . 而 DS〈4I,J) 的 障碍 点 编号 是 在 位 销 线 息 动 
过 程 中 ,不 断 将 过 到 的 障碍 点 插入 和 位 错 线 上 原来 的 障 
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Ос 
Е асат ER EILA RN 


碍 点 序列 中 相应 位 置 得 和 到 的 新 编号 . 开始 时 对 DSA, 
J).1=1.24#0 J=1.,2W 4 {Ë , b) I£ tE 2 4] 36 fy Pt £ W 
端点 的 坐标 . 

IP(I):I=1,2--.. 链表 指针 ,将 某 一 时 刻 位 错 线 上 的 障碍 点 按 从 碳 
到 左 的 顺序 编号 .形成 链表 ， 

DMIN ;为 消除 模型 中 所 取 晶 体 部 分 的 宽度 为 有 限 值 的 影响 ,规定 
对 于 紧 挨 侧面 边界 且 与 边界 距离 小 于 DMIN ИЕН 
点 皆 取 镜 象 点 ( 即 在 边界 外 侧 补 充 障碍 点 }) 碎 保证 位 
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将 所 通 障 碍 点 揪 
入 链表 


=ч 


流程 图 1 АС АЕ КАЛЕТ SB r) 


钳 线 垂直 于 边界 ， 
ҒАС”. ЖҰ ps МУ. Ж. 
ТАСО" fif kE p= tE Ы. ОАЫ, А— ЖИЕ то. 相对 单 
f. 
NTAU” : 取 外 加 切 应 力 的 值 的 个 数 , 使 做 一 次 计算 机 实验 时 ,能 
观察 到 在 不 同和 外 加 切 应 力作 用 下 位 错 的 线 运动 情况 ， 
TAU(D :I=1,NTAU. 第 I 个 外 加 切 应 力 的 值 rm, 应 取 TAU(I+ 
D>TAU(D ,相对 单位 . 
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RTAU(D :TI 一 1NTAU, 是 与 外 加 切 应 力 平衡 时 位 错 绝 的 曲率 
半径 Ri 一 1009 ,相对 单位 | 

R: 当 前 两 障碍 点 间 位 错 弧 的 曲率 半径 . 开始 时 取 一 初 值 Ro = 
1600 相对 单位 . 


D: 位 错 线 上 当前 两 相 邻 障碍 点 间距 离 . 


IE ,标志 参数 , 当 R< MARRS h pla ЕТУ ЖА AR 
态 , 因 此 继续 扩展 ,此 时 记 王 一 1; 当 R> i, IE= 
0 


ЭҮ :位 错 运 动 时 找到 的 障碍 点 坐标 . 当 未 找到 障 得 点 时 , 记 X= 
— 1. 


入 , 子 程 序 说 明 


1.BRANDIIY ,RAND) 

随机 数 发 生 器 , 输入 随机 参数 IY, 输 出 0 至 1 间 的 随机 数 
RAND. 

2, ARC{xl,yl ,x2,y2,R,1IRD,ISTOP,x,y) 

{ЕРИ E Ж} Н (z, у, AA Сл», yo) 2 [3] Bi PE ИЕ" 


IRD 取 1 时 ,有 R> Mr. э ЕНЕ КОН ВНА 


ан ЖОШ ISTOP= — 1, 17 01270. 19 КЖФ) S IS Ra su НЩ Ж 
(с, у) 1 如 未 过 到 , 刚 输 出 z= 一 1 

3.СО(х1,.у1.х2.у2.Е,ІКО,х,у) 

К РИНЕН sa Се, у, DF Се, › y, Z [B] , 3 t 22 R ËJ B] s. B) > 
(х,у? 

4. ARCL Сх1,у1,х2,у2,Е) 

ЯТ Н (х,у, Сх, уг ) Z [8] FA КО ВУ АД 
K. 
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5. ОМАКС(х1,у1,х2,у2,8,1Кр,ІС) 

{ЕРАК Ж (х, у.) (еу) 2 ЕЗ RER E EL A. 
ІС 为 光斑 的 颜色 码 . 1С=0#лж 56, H T ИЖ БИЛЕ EM H: É) 
Ж. | 

6. SCREEN ,PLOT,GET ЕУЕНЛЕЕШЕНЕЯЖҒЯ 
ВЕ. 详细 说 明和 参见 程序 7-7 SOLITN 


七 .计算 实例 


给 定 一 个 无 规 障 碍 的 点 阵列 ( 即 输入 МОВ = 200,1КАМ = 
50) ,模拟 在 能 钉 扎 情 况 下 (输入 КА1С=150) ,初始 曲率 半径 为 R. 
的 位 铸 线 (输入 相应 的 位 种 线 张力 TAUO=5) 在 NTAU( 一 5) 个 
相继 增加 的 外 加 切 应 力 (CTAU(IT) 王 20,25,30,35,407 的 作用 下 ， 
位 错 线 的 运动 情况 . 在 屏 上 可 以 观察 到 在 外 加 切 应 力作 用 下 ,位 错 
线 弯 曲 、 扩 展 、 向 前 运动 , 当 过 到 了 和 碍 点 时 就 被 钉 扎 住 ,而 当 障 碍 点 
两 侧 位 错 弧 的 夹 角 小 于 脱 钉 角 时 就 从 障碍 点 脱 钉 ,继续 扩展 向 前 
运动 , 如 此 反复 ,直到 整 条 位 错 线 上 被 障碍 点 分 割 成 的 各 有 段 弧 的 线 
张力 ,和 绷 与 外 加 切 应 力 平衡 时 才 停 止 运动 . 此 时 ,程序 自动 取 用 下 
一 个 外 却 切 应 力 值 继续 运行 ,在 此 比 前 一 个 更 大 的 外 加 切 应 力作 
用 十 ,位 错 线 继续 扩展 运动 ,又 反复 经 历 钉 扎 和 脱 钉 的 过 程 , 直 至 
到 达 新 的 平衡 位 置 , 最 后 , 屏 上 显示 在 指定 的 各 个 外 如 切 应 力 的 值 
时 ,在 相应 的 各 个 平衡 位 置 位 错 线 的 形态 ,如 图 1-18 所 示 , 从 图 可 
见 , 由 于 是 弱 钉 扎 ,位 错 线 近 于 平 直 推进 . 

再 模拟 在 强 钉 扎 情 部 下 位 锻 线 穿越 无 规 障 碍 点 阵列 运动 的 情 
况 ,此 时 NOBS=200, IRAN =55, ІЙ FAIC 取 30, 其 它 值 可 取 
 ТАОС=5,М№МТАЧ =3,ТАО (1) = 30,55,80. 结果 见 图 1-19, 从 图 
可 见 , 由 于 蚌 强 钉 扎 ,位 错 线 最 后 形成 一 个 向 前 的 突起 ， 

本 程序 运行 时 ,采用 人 机 对 话 方式 , 按 屏幕 提示 以 自由 格式 键 
入 输入 数据 , 运行 时 在 屏幕 上 显示 位 错 线 穿越 无 规 障 得 点 阵列 的 
运动 图 象 ,并 自动 输出 一 个 数据 文件 DSDA TA ,记录 外 加 切 应 力 
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依次 取 不 同 值 时 ,位 错 线 上 上 相 邻 障 碍 点 对 的 党 标 改 其间 位 错 弧 的 
曲率 半 径 , 供 最 后 显示 对 应 于 各 个 外 训 切 应 力 的 位 错 线 的 平衡 形 
态 时 调用 和 备查 . | 

运行 指令 ;DSLMOYV 


A , 源 程 序 :DSLMOYV, FOR 


PROGRAM DSLMOYV 

COMMON XX1,XX2,YY1,YY2,RR 

DIMENSION DS(2,400),1P{400) ,OX (400), 

7 OY(400),TAU¿(10),RTAU(10) 

REAL * 8 RAND(2) 

INTEGER ОХ.ОҮ 

DATA ІХБІ.ІҮВІ,ІХВ2,ІҮВ2,1С/50,18.150.190,1/ 
DATA OX(1),OY(1),OX(2),OY(2)/62,25.137,25/ 
DATA DS(1,1),D542,1).DS(1,2},DS(2,.2)/ 
/ 51. 0.22. 0,149. 0.22. 0/ 

DATA DMIN/20, /,Р1/3. 1415926/,1Р(1),1Р(2)/2.—1/ 
DIST(X1,Y1,X2,Y2)=SQRT((X1—X2) * (X1 — X2) 

/ +‹Ү1—Ү?2›+ (Y1—Y25) 
ІЗТОР--0 

IPR==3 

XX1=1.0 

XX2== 30. 0 

YY1=1.0 

YY2=1.0 

RR=20, 0 

ОРЕМ (6.ЕПЕ= ОТОТ”) 

WRITE( # ,'(" INPUT THE NUMBER OF OBSTACLES” 
f "AND RANDOM PARAMETER: NOOBS, IRAN = *!N') 
READ( x ,* > NOBS,IRAN 

WRITE( * INPUT ҒАПС,ТАТ)/0,МТАТ),””, 
/ "ТАТ = Ҹу) 

READ( +. # ) FAIC,TAU0,NTAU,(TAU<(D,I=1,NTAU) 
ЕА =РІ * (1. 0—ЕАІС/180. 0) 

К. = 1000. 0/TAUO 

DO 10 1=1,МТАО 
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10 


20 


30 


49 


50 


(6 
80 


90 


1050 


RTAU(IN= 1000. 0/TAU (1) 
CALL SCREEN(4) 

DQ 20 I= IXB1 ,1XB2 

CALL PLOT(I,IYBI1 , IC) 
CALL PLOT(I,TYB2. IC) 

DO 30 1-ТҮНІ,ТҮБ2 

CALL PLOT(IXB1 ІС? 
CALL PLOT(IXB2,I,IC 2 

DO 40 1= 3, NOOBS 

CALL BRAND(URAN ,RAND) 


OX(D=IDINT(RAND(1) + FLOAT(IXB2—IXBI—5))+ 53 
OY(D =IDINT(RAND(2)* FLOAT(IYB2— 1YB1+8))+ 27 


ГО 50 1=1,NOBS 
IF(OY (1). GE. 199) GO TO 50 
CALL PLOT (OX (1) ,OY (1) ,2) 
CONTINUE 
ft 一 0 
I=I+1 
R=R* 0. 99 
IF (R.LT.RTAUCI)) GO TO 170 
ІСА =1 | 
DO 100 П==1, МОВ5 
IF (OY (П). СЕ. 199) GO ТО 100 
CALL Р,ОТ«ОХП»,.ОҮ 19,23 
CONTINUE 
IF ПРОСА). EQ. —1> GO TO 130 
IF (P(1,. NE. 2) THEN 
IF QDS.IPO))— 50. 0). LT. DMIN THEN 
DS(1.1)=1009. 0— р5<1,1Р<1>> 
0542,12 =р9$<2,1Р(1)) 
ENDIF 
ENDIF 
IF АРАСА). EQ. 2) THEN 
IF ({150.0— DSL, ICA»). LT- DMINY THEN 
05(1,2)=150.0+0рЈ 
05(2,2) =р5(2 ICA} 
ENDIF 
ENDIF 
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Хі--р5(1,1СА) 
Ү1=р5(2,1СА) 
ІСВ-ІРАОСА) 
X2=DS(1,ICB) 
Y2=DS(2,ICB) 
DD=DIST(X1,Y1,X2.Y2)/2. 0 
IF (R. LE. DD) THEN 
RE=DD 

120 RE=RE/0. 99 
CALL АКС(Х1,Ү1,Х2,Ү2,КЕ,2,18ТОР,Х,Ү) 
IF (ISTOP. EQ. —1> GO ТО 170 
IF (X. EQ. — 1.0) GO TO 120 
IP(IPR)>=ICB 
05(1,1РК) = Х 
05(2,1РрК) = Y 
ІР(СА )=1РЕ 
ІРК--ІРК--1 
ELSE 
CALL ARC(X1,Y1,X2,Y2,R.,1,ISTOP,X,Y) 

IF (ISTOP. EQ. —1? СО TO 170 

IF (X. NE. 一 1.0) THEN 
ІРПРЕ) -ІСВ 
DS(1,IPR)—X 
DS(2,IPR)=Y 
[РЇЇСА)=ЇРЕ 
ІРЕ--ІРК--1 
ENDIF 
ICA =ІРЧСА } 
ENDIF 
СО TO 110 

139 1СА=1140 CONTINUE 
ІСМІ--ІРСІСА) 
IF (ICN1. EQ. —1) СО ТО 80 
ІСМ2 -ңІРСІСМІ) 
IF (ІСМ2. ЕО. —1) СО ТО 80 
IE=0 
X1=DS¿C1.ICA) 
Ү1=05(2.1СА) 
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X2=DSú(L,ICN1) 
Y2=DS(2,ICN}) 
X3=D$(1,ICN2) 
Y3 一 DSft2,ICN2) 
CALL CO(X1,Y1,X2,Y2,R,1,X01,Y01) 
CALL СО(Х2,Ү2,Х3.Ү3,Е.,1,Х02,Ү02) 
А1і--АТАМ?2(Ү01-- Ү2,Х01--Х2) 
А2--АТАМ2СҮ02- Ү2,Х02--Х2) 
IF (A2.LT. А1) А2--А2--2.0 РІ 
АЈ= А2 А1 
IF (АЈ. СТ. ЕА) THEN 
ІСВ--ІСА 
IP(ICA)=ICN2 
150 AC1=ARCL(X1,Y1,X2,Y2, R) 
AC2=ARCL(X2,Y2,X3,Y3,R) 
DJ]=DIST(X1,Y1,X3, Y3)/2. 0 
IF(DJ. GT. R) THEN 
Х0--<Х1--Х32/2.0 
Y0=(Y1+Y3)/2. Ü 
AC3=D] * РЇ 
IE=1 
ELSE 
CALL СОСХ1, Ү1.Х3,Ү3,8В,1,Х0,Ү0) 
AC3=ARCL(X1,Y1,X3, Y3,R) 
ENDIF 
А--Ү1-Ү0 
Б-«-Хі-Х0 
А--АТАМ?(А.В) 
В--АСІ/ХАС1--АС2) + АСЗ/К 
А-А-В 
ХІ,-Е + СОЅ(А) + ХО 
YL=R*SIN(A}T YO 
DL2= (XL — X2) + СХІ,-Х2)--СҮІ,- Ү?) * (YL— Y2) 
DL2=SQRT(DL2) 
А = Ү1,--Ү2 
В--ХІ,-Х2 
А--АТАМ?(А.В) 
SR=SIN(A) 
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CR=COS(A) 
DL=0.0 
160 YO=DL * SR+ Y2 
XO =-=DL # CR+X2 | 
САМ, АКС(ХІ,Ү1,ХО,ҮО,В,1,18ТОР,Х,Ұ) 
IF (ISTOP. EQ. —1) СО ТО 170 
IF (X. NE. —1. 0) THEN 
ТАМ-ІРССВ) | 
IP (IPR) SIAN 
0561 ДРЕ =Х 
05(2,1РЕ) = Y 
Хі--Х 
Ү1= Үү 
IP(ICB)=IPR 
ICB=IPR 
IPR=IPR+1 
Х2--ХО 
Ү2--ҮО 
СО ТО 150 
ENDIF 
CALL АКСХХО,Ү(0,Х3,Ү3,Е,1,18ТОР.,Х.Ү» 
IF (ISTOP, ЕО. -1) СО ТО 170 
IF (X. NE. —1. 0) THEN 
ІРСІРЕ) =ІР(ІСВ) 
0541,1РЕ = X 
05 (2,1РЕ) = Y 
А = X 
Үз--Ү 
ІРСІСВ) = IPR 
IPR=IPR+I 
X2= xÜ 
Y2= YQ 
GO ТО 150 
ENDIF 
DL=DL+1.0 
ІК (DL. LE. DL2) СО ТО 160 
IF (IE. NE. 0) СО ТО 90 
ENDIF 
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170 


180 


190 


200 


210 


220 


240 


250 


ІСА-ІРАСА» 
СО ТО 140 

CONTINUE 

ICA=1 

IF (IP(ICA). EQ. —1) GO TO 200 
Х1= 081 ,ІСА) 

ү1=05(2,1СА) 

X2=DS(1,IP(ICA)) 
Y2=DS(2,IP(ICAY) 

CALL DWARC(X1,Y1.X2,Y2,R ,1,3) 
WRITE(6,190) X1, Y1,X2,Y2,R 
ЕОКМАТ(1Х.5Е8. 2) 

ІСА-ІРАОСА) 

СО ТО 180 

CONTINUE 

IF (ISTOP. EQ. —1) GO TO 210 
IF(LLT.NTAU) GO TO 70 

CLOSE (6) 

OPEN(6.FILE= OUT”) 
READ(6,190,END 一 230) X1,Y1,X2,Y2,R 
CALL DWARC(X1.Y1;X2.Y2,R,1,3) 
GO TO 220 

С ОЅЕ (6) 

DO 240 1--1,МОВ65 

IF (OY (D. СЕ. 199) СО ТО 240 

CALL РОТОХАОЭ,ОХ (1), 2) 
CONTINUE 

IFG(ISTOP. NE. —1) СО ТО 260 

DO 250 1==1ХВ1.1ХВ2 

CALL PLOT{I,IYB2,3) 

CONTINUE 

PAUSE ' ” 

CALL SCREEN(2) 

STOP 

END 

SUBROUTINE ARCOX1,Y1,X2.Y2,R.IRD,ISTOP,X Y) 
INTEGER GET 

COMMON XX1,XXKX2,YY1,YY2,RR 
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10 


20 
30 


/ 
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DIST(X1,Y1,X2,Y2y=SQRT((X1— XKX2) + (X1 — X2) 
+(Y1—Y2) w (Y1—Y2)) 

CALL DWARC(XX1,YY1,XX2,YY2,RR,IRD,02 
一 一 1.0 

CALL СОСХ1,Ү1,Х2,Ү2,Е,ЛЕр,Х0,Ү0) 

А-Ү1-Ү0 

В--Х1--Х0 

Аі--АТАМ?(А.В) 

А--ҰҮ2-Ү0 

B=X2— X0 

А2-АТАМ?)(А.В) 

IF (A1. LT. А2) А1= A1-42. 0 * 3. 1415926 

"”А =1. 0/8 

М=ІМТ((А1 —A2)/DA) 

А = А2 

DO 20 І-гі,М 

ЇТХ=1МТ‹К + COS(A)+ X0) 

IY=INT(R x SIN(A)+ Y0) 

IF (TY.LT.199) GO ТО 10 

ISTOPE 一 一 1 

RETURN 

CONTINUE 

IG=GET(IX ,IY) 

IF (IG. EQ. 2) THEN 
Xx=IX 
Y=IY 
DI1=DIST(X,Y,X1,Y1) 
DJ2=DIST(X,Y ,X2. Y2) 
IF (DJ1. LT. 1. 0. OR. DJ2. LT. 1. 0) X= —1, 0 
GO ТО 30 

ENDIF 

IF (IX. СТ. 50. AND. IX. LT. 150) CALL PLOT(IX ,1Y ,3) 

A=A+DA 

CONTINUE 

XX1=XK1 

ХХ2=ҳ2 

ҮҮІ-УІ 

ҮҮ2=Ү? 
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RR=R 
RETURN 
END 
FUNCTION ARCL(X1,Y1,X2,Y2,R) 
D2=(X1—X2) * (X1—X2) + (Y1—Y2) + (Y1— YZ) 
A=1. 0—D2/2. 0/R/R 
ARCL=R * ACOS(A) 
RETURN 
END 
SUBROUTINE DWARC(X1,Y1,X2,Y2,R.,IRD,IC) 
CALL CO(X1,Y1,X2,Y2,R ,IRD,X0,Y0) 
A=Y1—Y0 
ВБ-«Х1--Х0 
А1= ATAN2(A,B) 
A=Y2— Y0 
B=X2— X0 
А2--АТАМ?2(А.В) 
IF (A1. LT. А?) А1--А1-Ғ-2.0»ж3.1415926 
DA=1.0/R 
N=INT((A1—A2)/DA) 
A=A2 
DO 101--1,М 
IX=INT(R «СОЗ(А)-ҒХО) 
[Y=INT(R * SIN(A)+ Y0) 
IF (IX. LT. 150. AND. IX. GT. 50) CALL PLOT(1X ,1Y ,IC) 
А--А--ПА 
CONTINUE 
RETURN 
END 
SUBROUTINE СОСХІ,Ү1,Х2,Ү2,Е ,IRD,X,Y) 
D2=(X1—X2)=* (X1—X2)+(Y1— Y2} + (Y1— Y2) 
АМОЕІ,--АТАМ?2((ҰҮ2-Ү10,(Х2--Х19--(-1. 0) 
/ ж + IRD + 3. 1415926/2. 0 
DX=(X1-+X2)}/2.0 
DY=(Y1+Y¥2)/2.0 
S=5QRT(ABS(R + R — D2/4. 0)) 
X =S * COS(ANGEL) + DX 
Ү--рҮ--5» SIN(ANGEL) 
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RETURN 
END 
SUBROUTINE BRAND(IY ,RAND) 
REAL x 8 HALFM ,AMTWO,AIY,S,RAND(2) 
DO 60 I=1,2 ` 
M=1 
10 М2-м 
IF(M. LE. 4194303) GO ТО 20 
AMTWQO=2.D0 * (FLOAT (MD) +1. DO) * 1. D—7 
M=IDINT((AMTWO— 1. DO) x L. D7) 
GO TO 30 
20 M= 2 + М2 
30 IF (M.GT. M2) GO TO 19 
НАШЕМ =M2 
IA=8 = IDINT(HALFM » 3. 141592653589793D0/32. D0) +5 
IC=2 * IDINT(HALFM ж (0. 5р0 —DSQRT (3. р0)/6. D0))+1 
МІС-(М2-1ІС)--М2 
5=0, Б/НАТЕМ 
IF (IY. LE. 8388606 ЛА) СО ТО 40 
АІҮ =ЕТОАТЛЈА) *FLOAT([Y)* 1,D—7 
ІҮ = ШИМТ (А1У —IDINT(AIY)) < 0. 8388606 * 1. D7) 
СО ТО 50 
40 IY=IY #1IA 
50 IF (IY.GT. MIC) IY= (IY—M2)—M2 
IY=1Y+IC | 
ІК (1Y/2.GT.M2) IY = (QY —M2)—M2 
IF (IY.LT.0) TY = (IY +M2)+M2 
60  RANDUJ=FLOATUY)=*S 
RETURN 
END 
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(Е. 

2. H FRR РНИ, Pr f АА X , ЖЖ 
m кд 845 w A ЕЖЕН ЛЕТ АНЕ K... 这 些 因素 
给 程序 的 输入 参数 的 选取 和 带 来 一 定 限制 . 
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第 二 章 ” 准 晶 、 非 晶 和 液态 的 结构 


人 们 逐渐 认识 到 ,物质 的 各 种 物理 性 质 与 它们 的 微观 结构 密 
mÆ. 准 晶 , 非 晶 和 被 态 材 料 也 不 例外 ,要 对 它们 各 种 性 能 有 比 
较 深 入 的 认识 ,首先 必须 研究 它们 的 结构 . 

人 们 对 准 晶 、 非 晶 , 液 次 材料 结构 的 认识 , 远 不 如 对 晶体 结构 
的 认识 那 祥 深入 . 对 它们 的 结构 研究 从 手 眉 到 方法 都 还 处 在 发 展 
2. 

НЕ, Е ААН БЕЛЕКЕ ЖЖ 
АЕ. 准 晶体 的 发 现 是 凝聚 态 物 理 的 重大 突破 之 一 ,这 
一 进展 给 物理 学 家 ,特别 是 晶体 学 家 和 国体 理论 学 家 提出 了 新 课 
T. 经 典 晶 体 学 的 研究 告诉 我 们 ,由 于 受 周 期 性 的 限制 ,无 论 是 14 
种 布 拉 菲 点 阵 还 是 230 Th ЕТІНЕ RAAE 5.7.8,10 
次 旋转 对 称 轴 . 现在 实验 表明 ,含有 5 次 对 称 轴 的 二 十 面体 新 相 确 
EPU. 不 过 它 的 铺 构 只 有 取向 有 序 而 无 平移 周期 , 故 被 称 为 准 晶 
Ж. 目前 物理 学 家 把 准 晶 体 看 作 是 具有 亏 期 性 的 高 维 空间 赣 体 在 
三 维 (或 二 维 ,一 维 ) 空 间 的 投影 . 从 而 巧妙 地 克服 了 “ 准 晶 无 平移 
周期 "给 理论 计算 带 来 的 困难 . 

对 于 非 晶体 ,点 阵 概念 完全 失去 意义 ,目前 常用 的 描述 非 晶 态 
微观 结构 的 方法 ,是 用 结构 因数 和 分 布 函 数 统计 地 描述 . 

”液体 也 是 一 种 无 序 状态 ,不 过 它 的 近邻 有 序 范 围 比 非 品 国体 
更 小 ,对 液态 金属 与 合金 结构 的 描述 方法 基本 辐 于 非 晶 固体 . 
本 章 主要 讨论 准 唱 , 非 晶 和 液态 这 些 无 马 期 性 物质 的 结构 . 
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$2.1 准 品 的 结构 描述 


1984 年 D. Shechtman 等 人 报导 了 和 急 冷 的 ALMn 的 约 2pm 大 
小 的 一 些 唱 粒 , 具 有 与 品格 平移 周期 性 不 相 容 的 二 十 面体 点 群 对 
称 性 . 当 倾 动 样品 至 不 同 取向 ,选区 电子 衍射 图 可 清楚 地 显示 二 
次 , 三 次 和 五 次 对 称 ,衍射 班 点 明锐 ,相应 各 带 轴 间 的 夹 角 关系 与 
二 十 面体 点 群 1 和 了 各 轴 之 间 的 夹 角 关系 相符 . 我 们 知道 ,晶体 点 
阵 的 平移 周期 性 ,不 允许 有 五 次 对 称 , 即 不 能 不 留 空 阶地 用 五 边 形 
铺 满 平面 ,同样 也 不 能 用 具有 五 次 对 称 轴 的 二 十 面体 ,不 留 空隙 地 
填 满 三 维 空间 . 因此 , 二 十 面体 相 不 是 服从 传统 晶体 学 规律 的 晶 
体 . Levin 等 称 之 为 准 齐 二 十 面体 相 或 简称 蕉 晶 相 . 

准 品 相 物 质 出 现 后 , 人们 就 淮 晶 是 否 是 一 个 新 相 引 起 了 激烈 
的 争论 , 先后 棍 出 了 多 重 挛 晶 .二 十 面体 玻璃 和 准 晶 横 型. 随 着 研 
究 不 断 深入 ,电子 显微镜 、X 射线 衍射 和 场 离子 显微镜 的 研究 证 
明 , 二 十 面体 相 不 是 含 多 重 李 唱 的 规则 晶体 ;明锐 的 布 拉 铬 衍射 峰 
也 排除 了 二 十 面体 玻璃 之 说 ， 

对 准 晶 的 研究 结果 表明 :(1) 准 唱 是 一 种 介 于 非 吕 和 晶体 之 
间 的 新 的 有 序 结构 ; (2) 准 晶 具有 准 周期 长 程 平移 序 ;(3) ЖЕШ R. 
有 长 程 取 向 序 . 

准 品 发 现 后 , 短 时间 内 研究 工作 就 取得 了 很 大 进展 . 除 三 维 二 
十 面体 准 唱 相 外 ,人 们 还 相继 发 现 了 具有 十 次 ,十 二 次 和 八 次 旋转 
对 称 性 的 准 唱 体 ,它们 都 是 二 维 准 唱 : 在 垂直 于 该 旋转 轴 的 二 维 空 
间 里 呈 准 周期 性 , 沿 旋转 轴 则 具有 周期 性 . 含有 准 晶 的 合金 ,已 增 
加 到 了 数 十 种 , 准 晶 的 制备 方法 ,到 目前 为 止 主要 有 两 种 :第 一 种 
是 将 熔 损 液态 合金 急 冷 固化 形成 ,这 是 传统 上 制 取 非 晶 条 带 的 方 
法 , 准 晶 是 以 成 核 长 大 的 方式 形成 的 ,大 部 分 已 发 现 的 准 晶 均 是 用 
这 种 方法 形成 ;第 二 种 是 用 固态 反应 的 方法 生成 ,如 相互 交替 层 腊 
或 共 沉 积 固体 用 离子 束 泥 合 而 形成 ,或 将 固溶体 使 用 磁 控 溅 射 或 
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激光 熔融 处 理 , 也 可 用 等 离子 体 蒸发 方法 形成 . 人 们 还 转 绕 准 晶 的 
TÉ 成 机 制 ANTEU AS , WE šh . 非 晶 三 者 之 间 的 关系 进行 了 
广泛 深入 的 研究 . 另外 ,也 开展 了 准 昌 的 电子 态 .物理 性 质 等 方面 
的 研究 工作 . | 

Ж {ЕЕ ДЫТ ЗЫЛ ДЕЛЕ ЕНЕР. АШ ЕЖЕН, 
在 二 十 面体 相 发 现 之 初 ,人 们 就 开始 构造 各 种 模型 ,以 解释 二 十 面 
КОЖЕ ЕШ. 早期 的 以 二 十 面体 为 基本 结构 单元 进行 堆积 的 各 种 
模型 ,基本 上 已 被 放弃 ;以 Penrose 拼 砌 为 出 发 点 构造 各 种 模型 的 
方法 ,由 于 用 投影 可 以 计算 其 结构 因数 ,目前 常 为 人 们 采用 ， 

本 节 只 讨论 二 十 面体 准 品 的 投影 描述 及 其 衍射 花样 的 计算 机 
模拟 . 至 于 密度 波 描述 的 方法 就 不 作 介绍 了 . 


2.1.1 二 十 面体 准 唱 相 代 相 ) 的 投影 描述 


投影 方法 首先 被 De Bruijn 采用 ,他 从 五 维 空间 的 立方 格子 投 
影 到 二 维 空 间 以 得 到 平面 Penrose # W). 其 后 , 这 种 方法 被 
Kramer, Elser БІН, М ЕК А СШ ЯН. 人 们 从 数学 上 已 
经 证 明了 Penrose 拼 彻 构成 的 格子 可 以 从 多 维 正方 格子 按 一 定 杀 
件 向 低 维 投影 而 得 到 . 从 六 维 超 立方 格子 向 三 维 投影 可 得 到 三 维 
Penrose 拼 砌 ;从 四 维 趋 立方 格子 向 二 维 投影 可 得 到 二 维 Penrose 
拼 砌 ;而 从 二 维 正方 格子 向 一 维 投影 可 得 到 一 维 Fibonacci 结构 ， 
П — HE ME sa #. 

为 便于 理解 ;首先 讨论 由 二 维 空间 向 一 维 空间 投影 ,构成 一 维 
КЕ ВУЛ А. 


— , — t4 f a (Fibonacci 结构 ) 


设 有 二 维 正 交 坐标 系 о, HERI ee RA 1, ВРЕ 

二 维 正方 点 阵 示 于 图 2-1. 将 其 阵 点 坐标 表述 为 n = (ан) AP 

wn 均 为 整数 , 若 将 坐标 系 转动 4 角 , 得 到 新 的 坐标 系 21 Ma. 

再 作 一 平行 于 zf 子 空间 的 直线 Lr). 取 和 图 上 每 个 正方 形 的 左下 
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角 的 顶点 为 该 正方 
形 的 代表 点 ,和 将 那 
ЖЕЙ L(x。o) 有 
公共 点 的 正方 形 的 
代表 点 向 х, 于 空 
间 投 影 . 当 tga 为 
无 理 数 时 ,这 些 投 
Ж ХА, ЖЛЕ ЛИ, WE ña Fi 
点 , Соп) 代表 编 图 2-1 Pro) 的 构成 
E. 3 n= (т, nH] 
ЕТЖ. НРКУ: | 

С(п) = {Cz z) |e Cn n! HOR 22€ Сиб, н? +1)} (2—1) 
与 直线 L(xo) 相 交 的 正方 形 的 代表 点 的 集合 为 ; 

Kr) = {r| L(xz,)[]C(n)20) (2—2) 

即 所 有 属于 фО\х„)у1Е Jy 11% ЛАЛ И [sJ xz1 子 空间 投影 . 这 样 


在 z1 空间 内 就 得 到 非 周期 排 布 的 投影 点 , 当 tg a= 1 5 (黄金 


分 割 比 ) 时 ,投影 点 为 Fibonacci 系列 ; 即 为 一 维 准 唱和 格 点 ,如 图 2- 
2 所 示 . xz4 子 空间 称 为 平行 子 空间 ,是 真实 的 物理 空间 # 与 之 垂直 
的 z, 室 间 称 为 垂直 子 空间 ,只 是 一 个 数学 空间 


J 2 1 2 1 1 2 1 
еу ез | 


图 2-2 一 维 准 晶 格 点 
在 图 2-1 上 ,上 述 可 投影 到 zi; 子 空间 内 的 格 点 被 用 空心 癌 式 
же. 
FTA ЕНЕ ar) (21,22) 27 [ЕЈ ЕЛЕ 
Ж. G rA х ЕУ Е, с 38 z, T 2E B] ЁЗ {у ЭБ 2 , ГД 
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(хі өтгі } 可 用 (e ,e2) ЖОМ 


тұ = cosae! 4- singe? 


n И š (2—3) 
xr = —зпаеёе -{-соваё 
ЇЇ (е se) 在 zi 子 空间 的 投影 为 
ті 
ең = сова cos?*qel+ sina cosa e? а= 
Өй = віпа z, 一 Sina cosa е! --зіп?а е? 
引入 投影 矩阵 P| 
=P iG) (ї=1Ї,2) (2—5) 
由 (2 一 4) 式 可 知 
| соза зѕіпасоѕа 
sing cosa sin'a 


同样 , (e Er PERRA Се АН ШЕР... 


则 | 
ё, е, е! e, 
| ЕНЕНЕ | (2--7) 
е Ё 1 е, 2. 
设 基 矢 (el,e2) 到 基 秋 (zz) 的 变换 矩阵 为 了 ,由 于 人 是 两 
组 正 交 基 矢 间 的 变换 , 故 为 正 交 和 矩阵 , 即 有 


T ST (2—8) 
所 以 
соза sina 
= | (2--9) 
—sina cosa 
因而 有 
соза 0 
Pi=| |T, 
| sina 0 
0 —sina 
0 соза 
二 .三维 准 品 I 相 


选取 六 维 超 空 间 中 的 超 立 方 品 ЕН 一 组 基 天 Ё е“ 4: ё" ‚е? 5 
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e ,它们 用 分 量 表 示 为 


六 维 起 立方 品格 常数 为 
a; 其 值 由 实验 确定 .六 
TE X ух ЕЁ ІНІН 
六 个 坐标 轴 方 向 . 与 二 
维 困 一 维 投 影 情况 一 
样 ,选取 一 个 六 维新 坐 
标 系 , 它 相对 于 得 坐标 
系 也 有 一 个 转动 .这 个 
转动 是 一 个 广义 的 概 
念 . 这 个 新 坐标 系 由 两 
个 子 空间 构成 ,zx = 
ET Жї 21 ;组 或 的 平 


e' == (100000) 
е? = (010000) 
е = (001000) 
e*= (000100) 
е5 = (000010) 
ef= (5000001) 


(2-11) 


图 2-3 正方 晶 胞 在 z. HAE 


行 子 空间 和 te :ti 组 成 的 三 直子 至 间 (5 见 图 2-3). жұ 
是 具有 物理 意义 的 真实 空间 , 即 为 准 晶 格 所 在 的 空间 ,而 =O a 


抽 和 象 的 数学 空 则 ， 


在 二 维 向 一 维 投影 时 ,为 了 得 到 一 维 准 晶 ,我 们 要 求 转 角 а 
E tge 为 无 理 数 . 现在, 则 要 求 转动 后 的 新 坐标 系 具 有 如 下 性 质 : 
原来 举 标 系 中 的 六 全 基 天 ee ,e’' ,e'se’,e' Ж лү 子 空间 的 投影 
el Úe) e! e) ee 分 别 是 自 二 十 面体 的 中 心 出 发 指向 六 个 项 点 
的 矢量 . 按照 V. Elser WE 2-4), 有 
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(а) 


(0) 


图 2-4 (а) 85685 е, 
УАН ЕЖ ІН (1--1,2.-6) 
ең --2(0.1,г), ең ==2(1,т,0) 
ез =(— 1,7,0), ей--Е(--т.0.1) (2—12) 
ез =Ё(0,—1,т), еү=Л(т,0,]) 


р = (2000) ле +(1+ VS ) 为 黄金 分 割 值 
在 六 维 超 空间 中 新 旧 坐 标 系 之 闻 的 变换 矩阵 了 有 下 述 关系 : 


хі | Ғы 4 шілде ніне Г е! е! 
Xil Т, Tp “е” T. | les е? 
xý е? 3 
= [ът (2—13) 

x! 

x° | : : 2 i 
xš. Tea Т» шыны Га е" e° 

T EEDA EZE fiA E 
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к FE А 


- 
е ху 


进一步 引入 从 六 维 超 空 间 到 z T ze 


65+ 6546 


间 的 投影 操作 Р | 


x} 


(2—14) 


和 到 эш 


空间 的 投影 操作 P. ,对 于 任意 一 个 六 维 超 空间 中 的 超 拓 量 皆 可 


写 为 


r=P (r)+P (=r tr 
类 似 地 ,对 于 六 维 超 空间 的 一 组 基 矢 , 亦 有 


一 三 | 


. 


由 (2 一 14) 式 可 得 
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е! е! 
е? e 
е? е? 
е. ле” Өй Р 
e° е” 
e e 
Ті Ty Ta 


Г, 2 Га Ту 


T, 5 Т» Т 


(2—15) 
(2—16) 
(2—17) 


el Ті Т, Т. х 上 
el ; Руа 
和 "i= () ЖЫ 1%, (2—18) 
е : - : т) 
еу - 2 ЕЕ 
es Т. Т. Те ха 


将 (2 一 17) 式 与 (2 一 12) 式 进行 比较 ,就 可 以 得 转 置 矩 阵 了 的 一 半 
Ж P£ pú 80 


el 0 1 т T) 
е 1 r 0 т” 
el -1 т 0 r] 
, | = (2—19) 
ет — 0 1 а; 
ез 0 --1 Т а. 
е" г 0 1 rË 


ATE T 8 Ер — 3 Еэ, (2— 13) t A (2—17), 
得 | 


Te la т 
ц 21 31 Т. Т, о. Т.) (е 


Ta Te : е; 


i 


e'i | | Га Ta Гы) (е 


(2—20) 


Т, Т» Г. е, 
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(2—21) 


ЯО-І ЖЕНА ҚАМТА P MP. 


(52-422) 


P -і1-рРр; 


=] 
V 5 
一 1 


一 1 
一 1 
V5 
—] 
1 
1 


1 
1 


(2--23) 
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因此 


О | 1 . 

er l= le | 三 一 -一 ,一 1 2 6 (2--24) 
| I| | 2 ST 
созбе ,时 ) = —сов (е, зел) ізе) 


БЕЗІ (е ,e ез e) зе ,ei ЕТТЕ АЯА Е; 
е! --Е(0,1,-17) 
е: --ЕС-т.0.,1) 
ез =Е(т,0,1) 
іл-АС--1.--т,0) 
ез =k(0,1,T) 
ей =K(1,—T,0) 

将 (2 一 25) 式 与 (2 一 18) 式 比较 ,可 得 志和 矩阵 的 另 一 半 矩 阵 元 . 


(2-29? 


ЖЕТЕН 63 ЛАНУ 
0 1 —1 —т 0 r 
аг 
1 Т т Q 一 Ü 
0 9 1 T 1 | 
T= (2—26) 
Q — r T --1 0 1 
1 O Ü —t 1 ші аз 
—T 1 1 9 г O J Е 


下 面 讨论 如 何 由 六 维 超 立方 品格 得 到 三 维 准 品格 , 选择 一 个 

六 维 超 空间 中 的 一 本 超 平 面 s(xo), 这 个 超 平 面 平行 于 х 75 

间 , 即 SCxo) 也 是 一 个 三 维 子 空间 , 它 相 对 于 лү 子 空间 只 有 一 个 

“平移 ” 六 维 超 立 方 品 格 的 单 胞 是 一 个 六 维 超 了 立方 体 , 令 (1 ,rr， 
sn) 为 Cln) 起 立方 体 的 代表 点 (只 是 其 中 一 个 顶点 ), 即 

С(а) = {irl rt) x E Cnn i=1,2,"6}(2—27) 

与 一 维 情形 一 样 ,只 有 那些 与 超 平 面 S O AAA v h ан їй Л 

能 投影 到 xz 久子 空间 内 . 超 立 方 上 品格 向 x 久子 空间 投影 ,就 是 指 这 

个 六 维 超 立 方 体 的 超 侧 面 投影 到 zx 久子 空间 内 ,这 个 超 侧面 是 三 
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维 的 ,这 表示 六 维 超 立方 晶 格 的 三 个 基 舌 (е f R хр 
” 子 空 何 内 , 变 为 {el ,上 ey ). kk zÇ; -T 2 [B] 4 BJ 645 S P E Н (ел, 
eh ,21} 三 基 矢 组 成 的 次 形 六 面体 . BARERA IK АлАТ “ë 
加 的 六 个 基 矢 组 成 ,那么 它 的 三 维 超 侧 面 的 种 类 数 为 Cs=20 + , 
这 意味 着 有 20 个 {e',e!,e:} 的 不 同 组 合 ; 所 以 x 包子 空间 中 的 投影 
矢量 te ,ef мН 20 个 不 同 的 组 合 .它们 将 构成 20 个 不 同 的 
zz ñ Ik. 为 了 帮助 辨别 这 些 情况 51 X 2 Et 
0 一 一 Sign Се) “et)=sign (е) * е) (2 一 28) 
CG, = 00 jalki | (2—29) 
当 Ол 一 + 1 时 ， сер, ей» е! } 组 成 局 Жж WG (K ( oblate 
rhombohedron), Mi {e хе, зе ҰЯҢ ІҢ {$ (prolate rhombohe- 
dron ). 24 di — 1 时 {e ‚е! е Н К, (е, ‚ел ‚е } 
А ІНІ, ЖГ 2-5. 
所 有 与 Stzo) 超 平面 相交 的 超 立 方 体 的 代表 点 在 PTE [а] 
内 的 投影 均 落 入 某 个 确定 区 间 内 ,这 个 区 前 的 大 小 是 六 维 的 超 苹 
方 体 所 有 侧面 在 zz 子 宪 后 投影 之 和 ，* 记 为 2-3). ЖЖЖ 
WARE Ci, 的 中 心 处 ,到 


С. = | Уе \#1<-4-(=1,2,+6) (2—30) 
іт! 


(2 一 30) 式 所 定义 的 Cl 是 一 个 三 十 面条 ,如 图 2-6 所 示 , 换 句 话 
说 ,并 非 此 超 苹 方 档 点 的 超 立 方 体 的 所 有 超 例 面 都 能 投影 到 тү, 
子 空间 内 ,只 I 有 那些 在 x 名 子 空间 中 的 投影 落 信 СЮ ШЕ 
点 ,才能 投影 到 тї 子 空间 内 . 在 rt ,7 代表 超 立 方 体 的 (e, el, 
е^ УЖ WI PCR. eG j ЕТИП ЇЙ sa 3 fu ЕА 
8 


rzG,jbk)=rG,j b) + еже зе) (2—31) 
АлАТ д , 5 А5 24 
T. (t j Ë) с К, «ЖЕТІ 
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图 2-5 ORANY 图 2-6 三 十 面体 
(b) Ңң 35 II LE 


= | > z | < +,8 = ті (2 — 32) 


Й-!.т.я 


时 , (еее 超 侧面 才能 投影 到 S Fa р, (2 一 32) АФ, 
limn} == (1.2,Ь4е6)р — {tsjek} (2 sss 33) 
2.1.2 ЖЕНА ТАННЯ 
易 点 阵 和 结构 因数 


一 \ 准 品 二 十 面体 相 的 倒 多 点 阵 


由 于 六 维 超 立 方 体格 子 的 倒 格子 仍然 是 六 维 的 超 芯 方略 子 ， 
因而 三 维 二 十 面体 准 晶 的 个 格子 同样 也 是 三 维 的 Penrore #8. 


将 六 维 超 立 方 倒 格 子 基 矢 记 为 
е” е?“ 267" е” ,人 ‚ё‘ " ) (2 — 340 
那么 , 任 一 六 维 倒 格 矢 邦 可 与 为 
G= Sne" (2 一 35) 


将 G l z? 子 空间 和 ze: нж г M 59 
投影 ,出 


G = G| + G, = > net 十 лен (2 — 36) 
= 1 іт | 
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六 维 正 空间 大 矢 {е'у SARER) G = 1,2,…6} ЖТ 


е ы e' " 一 2лд;, (2 == 27) 

这 样 , 就 可 得 到 如 下 两 个 公式 
G «g = ?лн, (2 一 38) 
G-r=G "r +G sr. | (2 — 39) 


二 、 准 品 二 十 面体 相 的 结构 因数 


由 前 面 讨论 可 知 ,二 十 面体 相 由 20 种 {e1i eh e ЛЕНІ 

体 堆砌 而 成 ,所 以 总 的 衍射 振幅 (又 称 结构 因数 )5C4G 14) 为 这 20 种 
蒜 面 体 的 衍射 振幅 之 和 

S(G)= У) 5а,,0% Са.) 0-40 


1686.) 46,6 
式 中 
5.0.30) = >) expCG erilisjsk)) (2—41) 


| «ЖҮГІ 
ЖЕГЕ F fE 2 [B] PR ТА Sa IJ TE O : 
Sj = D f.W(e.s,s)expGG, * С уугу) 


FE =l 


【5 一 ТҮГІ? 


= 6185 (2-- 42) 
SEJR АРН Н ley el ey) АЈА КУНУ Ж: 
5а, ЖАН — 4-3 Fh2 i K YR fB ВУЛЕ xf Hk B ЧЕ ЛЕП TY 
RR Se 是 原子 散射 因子 ;权重 W е; , 68; 8, ) 表示 以 жү 一 了 (r, Ë) 
++ У) s 为 顶点 ,楼 边 为 mi ,ef ке 的 苑 面体 的 立体 角 的 百 


— шш 
m. 


(с = 6.3.) 


分 数 . 
先 计算 S.G. АА. 可 以 证 明 , 六 维 超 立方 格 点 在 22 子 空间 
内 的 投影 均匀 分 布 . 设 总 共有 N 个 格 点 投影 ( 即 准 晶 二 十 面体 相 
A N АЖЕ IK) WAE ж! Енн С 区 人 邮 内 每 个 之 G.E) 点 
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AKC |) 
н Д, 


(2 — 43) 
其 中 Уа = le х e! Xx et | (2 — 44) 


质心 位 矢 rijk). Cj kh) EE HL IK TN S u K r (i,j， 
b),z_ 人 7) 的 关系 分 别 为 


rSn Gjt У) ee (2 — 45) 
Ке 

-ғ А-Т У) веб (2 一 46) 
6.5221 


(e= jajak) 


利用 (2 一 37), (2 一 38),(2 一 39), (2 一 41) 和 (2 一 45) 诸 式 , 得 
.. N | 
Silis J k) = ШС)? | ЖыРы” 5 


K 14746) 


=: N sin Za 
Е бє. Za 
| (2— 47) 


式 中 2s = +G + e? Vin 是 由 (2 一 40) RAHI А С.) 的 体 


АКО.) = | 2, é |22| < 1.8 = Laman}. 
A—i.m.n 

为 1 计算 5S:， 生 用 一 个 简单 的 准 晶 原子 异型 :将 取 权 重 后 的 

时 抽象 列子" ETA Fa a. Ak 22 61 & 5 pa 2 IG [£ р EAEN 

Т ПЕТЯ ЕЕЕ [K BT Ip д, L Yk (ЕНЕВО ЕТ ШІН 2-5 所 示 . 对 


T Ж ЖК. 31 далана tk fB fD РУ В 
隅 占 半 :对 于 高 姜 面 体 对 应 部 分 是 2 x 2 和 6 x 过 .对 此 两 种 情 
况 , 对 称 轴 上 顶点 可 用 下 式 表 示 ， 

e + 5 Couet) + Fal: 十 Gu e? ) 《2 一 48) 
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最 后 得 到 


当 ба 一 十 1， 
7 1 
5, G, j,k) = 20 П cos Z, + (26 一 20) 
2 cos ($G. Жай, (2 — 49) 
当 Фбас--- 1, 
2. 3 
SG, j = о X 6 X 8 JE eos2. 十 ея келей 
к 《2 一 50) 
利用 с, (2 一 49) 和 (2 一 50) 式 可 合成 一 个 公式 ， 
5, (i, J = £ = = о) П сов Z, + C + 2а) 
e= í, 3.4 
| сов (0,0, + 42,2, 十 Gui (2 — 51) 
vd КҮТЕТҮРІЗ — 9, (2,3,2) т f, (2 — 52) 


2.1.3 ЖС ГИ ЖЕТЕ ЛЕНІ 


可 以 用 运动 学 理论 来 模拟 电子 衍射 花样 (简称 EDPS), BI ff 
射 斑 点 的 强度 正比 于 结构 因数 的 平方 154G1 | 计算 时 ,利用 布 
拉 格 定律 


— 4 = 9 (2 — 53) 


先 循环 输入 六 维 空间 超 立 方 倒 格 点 的 六 个 指数 ,然后 投影 到 
rz?" 子 空间 确定 倒 易 矢 Ci ,再 利用 带 轴 定律 
0:6, = 0 (2 一 54) 
ЖАР ЕШ И 的 G1 的 结构 因数 SCG1). 
为 将 衍射 班 点 作 图 ,就 需要 计算 这 些 斑点 的 直角 坐标 . 方法 
是 :以 强度 最 强 的 透射 斑点 作为 原点 ,将 从 原点 指向 次 强 点 的 矢量 
GOD 方向 作为 新 坐标 系 的 > 轴 , 沿 带 办 方向 的 矢量 驯 作 为 = 轴 , 则 
УН U Xx G(2) 确定 . ВУ х,у, ZAER a,b,c, 
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它 与 原 坐 标 系 的 基 天 i,j,k 的 变换 关系 为 


a Ul а; а: £ і 
b | = D, D, б; / 一 А J (2 — 55) 
с Сі Cy C3 k k 


AF HAE REJE ai a,,a, ПІ G(2) = (G.(2),G,(2),G,(2)) 确定 , 若 
GD = |G(2)|, 那 么 有 
26.9) _ G,(2) Үлде», 


а, = сора = бүзу?йз оу (2 — 56) 
由 市 轴 U(U..U,,U.) 可 十 出 
U. U, 
С = трэба = T °G: = TJ 
Б, = c, * a, — є; ча, 
而 js (2-- 57) 
Ü, = cj * a, — Cera 


JA + H Ja ЛЕ Z. rR J Pk ДА СС, СМ) ,С,СМУ,С,ОМ)) ЖЯ Ж 
НЕЕ А pk Bj + H fH 3 PUL ЕТА ЕЛІН АТА ЕСМ), ум), 
Z(N)) 为 | | 


х(МУ G; (N) ау а; а,| (G (N) 
у\М)|= AIGANY = |b, 5, b,| |G, (N) 
46/8 G (N) c, є, сұ) |G ION) 

(2-- 58) 


ІҢ ARER E REA +f SH U , [Ñ Iñ ЕЕ ка Putu T+ B| ia TZ E: 
面 上 ( 即 X-Y Р Б), н ZN) = 0, 而 例 和 格子 零 层面 上 倒 格 点 
的 花样 即 是 此 带 轴 的 电子 衍射 伦 件 . ВТ. ХЕ Г СМ), уму, Ш 
就 确定 了 生 射 斑点 的 位 置 . 图 2-7 画 出 了 二 十 面体 准 晶 五 次 对 称 
AJIN AI А-а 
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图 2 7 运行 程序 2-1QSCSRT 和 2-2DPPLT 得 到 的 二 十 面体 准 品 五 次 对 
Қо АТЕВ. ЕАО ТЕ ЯЕ, ЕА ЗЕ Н ЈР Е 


程序 2 1 准 晶 二 十 面体 相 的 电子 
衍射 花样 的 模拟 计算 


一 ,程序 名 :QSCRSI 


二 ,功能 
输入 六 维 带 轴 指 数 (0) ,计算 属于 此 带 山 的 一 组 遇 面 粗 应 的 
HRA Су 的 结构 因数 SCG4). 由 于 结构 因数 的 平方 比例 于 衍射 
T BE, AIR SCG) Н ГАЈ РАЯ ЕЈ з Е 
尽 : 各 个 衍射 班 点 的 位 置 及 其 往 射 强度 . 
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三 ,原理 


1. 取 一 简单 的 准 唱 原子 模型 :将 “平均 原子 ” 置 二 准 电 二 十 面 
[K 相 的 20 个 顶点 . 采用 此 模型 时 ,对 于 各 倒 易 点 原子 散射 因子 和 
相同 ， 

2. 输入 六 维 空间 带 轴 指 数 

3. 取 一 组 属于 此 带 轴 的 六 维 空间 倒 格 点 G Ong ae Hi); 
分 别 计算 SG). S(G, 是 表征 相位 关系 的 S, 与 结 梅 因子 S, Z 
1,5, 15, (2 一 47) 和 {2 一 52) 式 计算 ,对 应 倒 格 点 的 衍 
射 班 点 的 相对 强度 正比 于 |5(6 (215. 

4. 将 算得 的 各 衍射 班 点 的 数据 , 按 入 射 强度 从 大 到 小 的 顺序 
НЕВА. 

5. Fk (2 一 58) 式 计算 每 一 斑点 在 2 = ОРНА АС, 


y). 


四 、 流程 图 ле: | 


五 .变量 说 明 


x 为 输入 变量 ; Ед. 
U“ ,Te prams е ХЫ = (U1, U2, rre 1761. 
IMAX" :所 取 六 维 倒 格 点 指数 的 绝对 值 的 极 大 值 , 一 般 取 2 或 3. 
NPT :入射 班 点 已 按 生 射 强度 从 大 到 小 排队 ,只 输出 前 NPT 个 


斑点 的 数据 . 
UP1,UP2,UP3;U 在 平行 空间 的 投影 U, = (Uy ,U4 ,U1 
б1,69 НГ“ С6 E LID+, LXI ee LED = 1,NPT. 第 I 
个 班 点 所 对 应 的 倒 格 点 的 六 维 指 数 G = (С1, 
G2,……G6] 


GPD) :I = 1,NPT. 第 I 个 斑点 对 应 的 倒 格 点 的 三 维 倒 格 矢 长 
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ім 
E3 


输入 六 维 带 轴 指 数 ， 所 取 六 维 倒 格 点 
指数 役 大 值 和 要 输出 的 衍射 斑点 数 由 


计算 六 维 带 轴 U 在 平行 空间 的 分 量 吕 1 


 NN=1 _ 
k — АЖС 


ІСТЕН r G | 
N <i: Gi 


计算 与 此 倒 格 点 相应 斑点 的 衍射 强度 | SGO]? 


© 
МЧ2>10002 q 
Y 


将 前 NPT 个 入 射 班 点 坐标 变换 成 直角 坐标 
ж) 
流程 图 2 一 1 
Ж. 


GP1C1) ,GP2(1) ,GP3(1);] = 1,NPT.G 在 平行 空间 的 投影 G, = 
[GY ,G1 ,G3 3. 


СРОР,жН U, 5j G, HAR. 


TI,J):I 一 1,2,3 订 一 112，…… 6. 7ч СІН А $E T ВУ 
ЕҢ 2 18] Pb xP. 

ХТ), У)" 1 = 1,NPT. ЖІСРШЕЛІ. 
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FAIGOD+:I = 1,NPT, {8 Ф(1) = 0. 


SI :第 I 个 斑点 的 相对 衍射 强度 |51) 12. 
7 ИЯ 


БШ Е РАНА ГЕ НЭ T A 
型 计算 ,此 模型 不 考虑 不 同 种 类 原子 的 具体 位 置 ， 以 取 权 重 后 的 
“平均 原子 ” 置 于 准 唱 格 点 , 即 在 长 萎 面 体 和 扁 医 面体 内 部 不 放 原 
子 , 只 在 两 种 鞭 面 体 的 顶部 ( 共 20 个 ) ШЕНІ. Z< t + 0 = 
(U1,U2,-.. 1763 АРУН 5 2Х3ҢС1000007 和 372881110001 进行 计 
Я.ЛМАХЖ2:%3,МРТЯ 100. 

本 程序 运行 时 , 乐 用 人 机 对 颖 方式 , 按 屏 幕 提 示 以 自由 格式 键 
A 输入 数据 . 运行 结果 除 在 屏 蓝 寺 显 示 外 ,还 生成 如 OUT 的 输出 
文件 贮存 结果 备查 , 此 外 还 将 各 斑点 在 Z = 0 平面 的 直角 坐标 及 
衍射 强度 目 动 生成 QCDATA 的 输出 数据 文件 供 作 图 用 . 程序 2 一 
2 DPPLT 可 将 QCDATA 提供 的 数据 在 屏幕 上 画 出 准 晶 电 子 术 射 
ТЕРЕСА, 2-7). 

运行 指令 ;QSCRST ОПТ 


七 .输出 文件 :QCDATA 
. 0000E 十 00 . 0000E + 00 . 1000E + 01 
,1000Е + 01 . O000E + 00 . 8750E + 00 
. 3090E + 00 .9511E 十 00 .8750E + 00 
.1000Е + 01 . ООбОЕ + 06 .B750E + 00 
.3090Е + 00 ,9511E + 00 .8750Е + 00 
. 3090Е 十 00 ‚9511Е 十 00 ,8750Е + 00 
. 3090E + 00 . 9511E + 00 ‚ 8750E + 00 
. 8090E + 00 .5878E 十 00 . 8750E + 00 
‚ 8090Е 十 00 .5878E 十 00 . 8750E 十 00 
. 8090E 十 00 —.5878Е + 00 .8750E + 00 
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. 8090Е, 十 00 
. 5000Е + 00 
. 5000Е + 00 
. 8000Е + 00 
. 500906 + 06 
. 6180Е + 00 
.6180Е + 06 
‚ 1910Е + 00 
.1910Е + 00 
.1910Е + 00 
.1910Е + 00 
.1118Е. + 01 


0000Е. 十 00 


.1118Е + 01 
‚ 1118E + 01 
.1118Е + 01 
. 0000Е + 00 
. 6910E 十 00 
. 6910E + 00 
. 6919Е -- 00 
. 6910Е + 00 
.1190Е + 09 
. 3099Е, + 00 
.1189Е + 00 
‚ 3080Е + 00 
‚ 4090E + 00 
. 1180E + 00 
. 3090E + 00 
. 1180E + 00 
. 3820 + 00 
. 3820Е + 00 
. 4271Е + 00 


—.5878Е. + 00 
一 .3633 十 00 

.3633 + 00 
--.3633Е 十 00 

,3633Е + 00 

.0000Е 十 00 

.0000Е + 00 
—.9878Е 十 00 
.5878Е 十 00 
.21878Е + 00 
. 5878E + 00 
.3633E 十 00 
,1176E + 01 
—. 3633F, + 00 
.3633Е + 00 
.3633Е 十 00 
.1176Е + 01 
.9511Е + 00 
.9511Е + 00 
.9511Е + 00 
.9511Е + 00 
.3633E 十 00 
‚ 2245Е + 00 
.3633Е 十 00 
.2245 + 00 
.2245Е + 00 
.3633Е 十 00 
—.2245Е + 00 

. 3633Е + 00 

. 0000E + 00 

,000дЕ + 00 

.5878E + 00 


.8750Е + 00 
.7022Е 十 00 
.7022Е 十 00 
,7022E 十 00 
.7022E 十 00 
.7022E 十 09 
.7022Е + 00 
.7022E + 00 
. 7022E + 00 
‚ 7022E + 00 
.7022Е + 00 
.6114Е + 00 
‚ 6114Е + 00 
.6114Е + 00 
.6114Е + 00 
.6114E + 00 
.6114Е + 00 
.6114Е + 00 
‚ 6114E + 90 
‚ 6114Е + 00 
.6114E + 00 
‚ 3849E 十 00 
.3849E + 00 
.3849Е + 00 
.3849E 十 00 
. 3849E + 00 
. 3849Е 十 00 
.3849Е + 00 
. 3849E + 00 
.3849E 十 00 
.3849E + 00 
,2600Е 十 00 


+ 


4271E + 00 
4271Е + 00 


.4271Е 十 00 


.6910Е 十 00 


. 6910Е + 90 


6910Е + 00 
6910Е 十 的 


. 0000Е + 00 
.0000E 十 00 


+ 


, 3820E + 00 


3820Е + 00 
3820Е 十 00 


.1236Е + 014 


,1236Е -+ 01 
38208. + 00 
.1000Е + 01 


.1000Е + 01 
.1000Е + 01 


10004. + 01 
, 88205. + 00 


. 8820Е 十 00 
‚ 6180Е, 十 00 


.6180Е 十 00 


.8820Е + 00 


. 8820E + 00 
.7295Ę — 01 
. 5000Е + 00 


.5000Е + 00 
. 7295E — 01 
. 6180Е + 00 


.6180Е 二 00 
.9271Е + 00 


.5878E + 00 
.5878E 十 00 
.587ВЕ 十 00 
.2245Е + 00 
.2245Е + 00 
,2245Е + 09 
,2245Е + 00 
.7265Е + 00 
.7265E + 00 
.1178E 十 01 
.1176 -+ 81. 
.1176Е + 01 
.0000Е + 00 
.0000Е + 00 
.1176Е 十 01 
.7265Е 十 00 
.7265Е 十 00 
.7265Е + 00 
.7265Е + 00 
.3633Е + 00 
. 3633E + 00 
.7265E + 00 
.7265Е + 00 
.363З3Е + 00 
.3633Е + 00 
,ӘБПЕ + 09 
.8123Е + 00 
.8123Е + 00 
.9511E + 00 
.7265E + 00 
.7285Е ~- 00 
.2245Е -+ 00 


. 2600Е + 00 
.2600Е 十 00 
.2690Е + 00 
.2600Е + СО 
‚ 2600Е + 00 
.2600Е + 00 
.2600E + 00 
. 2600E + 00 
.2600Е + 00 
.222ТЕ + 00 
. 21907E + 00 
. 2221E + 00 
, 222Т7Е + 00 
922ТЕ + 00 
.2227 了 上 + 00 
.2227E + 00 
. 2227Е + 00 
. 2227E + 00 
‚ 2227E + 00 
. 1724Е + 00 
.1724Е + 00 
‚1724Е + 00 
.1724E + 00 
.1724Е + 00 
.1724Е + 00 
.1724E + 00 
.1724Е 十 00 
,1724E + 00 
.1724Е + 00 
.1724Е + 00 
‚ 1724Е 十 00 
.1724Е + 00 
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5000 + 00 ‚ 8123Е + 09 .1724Е + 00 


一 .5000E 十 00 --.8123Е + 00 ‚ 1724E + 00 
—.9271E +00 —.2245Е + 00 .1724E + 00 
一 .7295E 一 01 —.9511E + 00 .1724E + 00 
.7295E - 01 .9511E + 00 ,1724E + 00 
.9271Е + 00 —.2245E + 00 .1724E + 00 
一 .9271E + 00 ‚ 2245Е + 00 .1724E + 00 
—.7361Е 4-00 —.3633Е + 00 .8467E — 01 
.7361E 十 00 .3633E 十 00 .8467E - 01 

. 1180Е + 00 . 8123E + 00 .8467E — 01 
—,1180Е + 00 —.8123Е + 00 .8467E — 01 
—.3820Е + 00 .7265E + 00 .8467Е — 01 
,3820Е 十 00 —.7?265E + 00 .8467E 一 01 
.3820E + 00 .7265E + 00 ‚ 8467E — 01 
一 .3820E 十 00 —.7265Е + 00 , 8467E - 01 
. 5729E + 00 .5878E 十 00 .8467E — 01 
—. 8090E 十 00 .1388E 十 00 .8467E — 01 
--.5729Е +00 —.5878Е + 00 .8467E — 01 
.8090Е 十 00 -.1388Е + 00 .8467E - 01 
.1180E 十 00 -.8123Е + 00 .8467Е 一 01 
.736IE 十 00  —.3633E + 00 ,8467E — 01 
—. 1180E + 00 . 8123E + 00 ‚ 8467Е — 01 
—. ?361E 十 00 . 3633E + 00 .8467E — 01 
—. 5729E 十 00 .5878E 十 00 ,8467Е — 01 
-.8090Е 十 00 --.138ЯҒ 十 00 ,8457Е - 01 
.5729E 十 00 --.65878Е + 00 ‚ 8467Е - 01 


А , 源 程序 ;QSCRST · FOR 


PROGRAM OQSCRST 
DIMENSION 8(1500),1,1(1500),1,2(15003.1,351500), 
/1:4(1500).,1,5(1500),1,6(15002,СР1(200),С6Р2(200) 
{,СР3(200) ,СР(200),Х(200),Ү(200),ЕАІ(200), 
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10 


29 


30 


40 


50 


60 


/T(3,6y,V(6,6,6),Z(6),C(6),SM(6) 
DATA T/0.0,0. 371748, — 0. 6015009, — 0. 6015009 
/,0. ,0. 371748,0. 6015009,0. 0,0. 371748, 
/ — 0.371748, — 0. 6015009,0. 0,0. 0,0. 371748 
/ 0. 6015009,0. 371748, — 0. 6015009,0. 0/ 
FUN1(X1,X2,X3,X4) = (1. 6180339 + (ХІ 一 X2) 


/ + X3 — X4) * 0. 371748 
FUN2(X1,X2,X3,X4) = (1. 6180339 + (X1 + X2) 
/ + X3 — X4) =» 0. 371748 
FUN3(X1,X2,X3,X4) = (1. 6180339 + (X1 + X2) 


/ + X3 + X4) * 0. 371748 
РІ = 3. 1415926 | 
OPEN(6,FILE = * *',STATUS = NEW ) 
OPEN(10,FILE = 'QCDATA ' ,STATUS = *NEW') 
ҮКІТЕС»,10) 

FORMAT С INPUT THE INDEX ОЕ ZONE AXIS,’ 

/  /.3K.'U1.U2...U6 = ',\) 

READ(x* ,x* )U1,U2.U3,U4.U5.U6 
WRITE¿(6,20) U1,U2,U3.U4,U5,U6 

FORMAT C THE INDEX ОЕ ZONE AXIS,’ 
/ ЗХ, UL,U2...U6 = ',6F10. 8) 

WRITE » .303 

FORMAT C INPUT THE RANGE OF INDEX FOR ` 

/ P RECIPROCAL РОІЧТЅ,',/.3Х,1МАХ = ',N) 
READ +, + ) IMAX 
ЖЕТТЕ (6,40) ІМАХ IMAX 
FORMATO THE RANGE ОҒ INDEX FOR КЕСІРК’, 

/'OCAL POINTS IS FROM 一 ,I1，TO 十 1) 
WRITE( + ,50) 

FORMAT(’ INPUT THE NUMBER ОЕ ОСОТРОТ ’. 

ADIFFTRACTION POINTS:'/3X,'NPT == 50 
READ #, +) МРТ. 

WRITE (6,60) МРТ 
ЕОЕМАТС THE NUMBER ОЕ OQUTPUT ', 

/ ТЛҒЕВАСТЮМ POINTS IS 7,13/2 
WRITE( + ,70) 

ЕОЕМАТОХ, МАТТТІМС ...9 
UP1 = FUN1(U6,U4,U2,U3) 
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UP2 = FUN2(U2,U3,U1, U5) 

ОРЗ = FUN3(U1,U5,U6,U4) 

ММ = 0 

рО 180 № =— ІМАХ МАХ 

DO 180 N2 一 一 IMAX МАХ 

РО 180 N3 =— IMAX МАХ 

DO 180 № = — IMAX МАХ 

БО 180 М5 一 一 IMAX ІМАХ 

РО 180 N6 = — ІМАХ МАХ 

G1 = FLOAT(N1)5 

G2 = FLOAT(N2) 

(23 = FLOAT(N3) 

G4 = FLOAT(N4) 

G5 = FLOAT(Ns) 

G6 = FLOAT(N6) 

GP11 = FUN1(G6,G4,G2,G3) 

GP22 = FUN2(G2.G3,G1,G5) 

GP33 = FUN3(G1,G5,G6,G4) 

UPGP = UP1 + GP11 + UP2 < GP22 + UP3* GP33 

IF (ABS(UPGP) — 1. 0E — 6) 80,80.180 
80 SG=0.0 

ЕУІ = FUN1(G3,G2,G6,G4) 

GV2 = FUN2(— G4, — G6,G5, — СІ? 

GV3 = FUN3(G5, — G1,G3,G29) 

DO 10—16 

21у = 0.5 + РІ» (GVL TD +GV2+* Tl) + GV3 =*= T3, D9) 

СС = СО5(25100 

IF(ABS(Z{1)) — 1. 0E — 10) 90,390,100 
90 5М1(1) = 1.0 

СО ТО 119 
100 5М40- 5ІМ(%7 (93/2 00 
110 CONTINUE 


DO 1701 = 1,4 
lJ =1+ 1 
ро 170 J 一 11.5 
JK=J+1 


ІІ = T(1,K>)>* (T(2,) * Т(3,0- T(3,D + T(2,J)>) 
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130 
149 
150 
160 
170 


180 
190 


200 


T2 = Т(2,К) » (T(3,1) + T(1,J>5 — T(1,D x T(3,]5) 

Т3-- T(3,K)* (ТО, р x T(2,J) — T(2, ны 
V(1,J]J,K)= T1 + T2 + Т3 

V(L,J,K)y=—= АВ&СУ(1,],К)) 

IF(V(1,J,K) — 1.0É — 10) 160,160,129 

VSM = V(I,J,K)> * SM(1> + SM (J) + SM(K) 

DO 1501, = 1,6 

ТЕСЕ, — D ж (L — J> * (L — Ку). EQ. MGOTO 150 

DO 140 М = +,6 

IF (CM — D < (M — J) w (M — K)* (M — L )). ЕО. ОЭСОТО 140 
DO 130 N = 1,6 

ЕСМ — 1 ж (N — Jy= (N К) ж (N — L * (N — M)). EQ. 0) 


/ СО ТО 130 


SG = SG + VSM x C(L) СМУ) «СМО 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

NN =NN+1 

S(NN) = ABS (SG) 

1,1(ММ) = М1 

L2(NN) = М 

1,3(ММ) = М3 

L4 (NN) = М4 

LSCNN) = № 

LENN) = М6 

IF(NN. GE. 1500) СО ТО 190 

CONTINUE 

WRITE( x ,200> NN 

WRITE(6,200) NN 

FORMAT(' THE NUMBER ОЕ CALCULATED ' 
DIFFRACTION POINTS IS 7,13) 


М = ММ — 1 
ГО 2301 = 1,M 
L=I+I 


1F (SC — 8(1)) 220,220.210 
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210 А = SCI) 


8501) = S(J) 
S(J) = А 

IB = L1(T) 
1С) = 110) 
L1(J) = ТВ 

IC = L2(I) 
1,21) = L2ú) 
120) = IÇ 
ID = L3(1) 
І,3(1) = 1.3(]) 
L3(J) = ID 
IE = L4(I) 
L4(I) = АСТ 
146) = IF. 
KF = L5(1) 
1.56) = 1.5(]) 
L5(J) = KF 
IG = L6(I) 
L6(1) = L6{]) 
L&(J)> = IG 


220 CONTINUE 
230 CONTINUE 
DO 370 L = 2,NPT 
S(L) = S(L)/S(1) 
GP1(L) = FUN1 (FLOAT (LL) FLOAT{L4(L>), 


/ FLOATL2(L}),FLOAT<L3(L))) 

GP2(L> = FUN2(FLOAT(L2(L>>y,FLOAT(L3(L)), 

/ ЕГОАТІЛСІ.)),ҒІОАТС,5(13)) 
GP3(L) = БОИМЗ(ЕОАТСЛС,)),ҒЕОАТСІ.5(89), 

/ FLOAT(L6(L)y,FLOAT(L4(L))) 


GP(L) = SQRT(GP1(L)* +2 + GP2(L)* *2 + GP3(L) ж #2) 
IF(L. NE. 2) СО ТО 300 

Аі = GP1{(2)/GP (2) 

А2 = СРООО/СРСО 

АЗ = СР3(2)/6Р (2) 

UP = SQRT(UP1* +2 + ОР2 + #2 + ОРЗ # +2) 

СІ ПРІЛІР 
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300 


310 


329 


340 


350 


370 


С2 = UP2/UP 

C3 = UP3/UP 

ВІ = C2 * А3 — А? * С3 

В2 = C3 + А1 — C1 * АЗ 

ВЗ = C1 + А? — C2 x АТ 

E = ЗОКТ(ВІ« * 2 + 82+ *2 + B3x ж 2) 


В1 = В1/В 
B2 = В2/В 
Вз = B3/B 


X(L) = A1 » GP1(L) + A2*GP2(L) + АЗ + GP3(L) 
Y(L) = ВІ * GPLL) + B2 + GP2(L) + ВЗ + GP3(L)> 
X(L)j = X(L;)j/GP (2) 

Y(L) = Y(Ly/GP(2) 

IF(ABS(X(L))> — 1. 6É — 10) 320,320,310 

TG = Y(LY/X(L) 

IF(X(L). LT.0. > GO ТО 340 

IF(Y(L> LT. 0.) GO ТО 350 

БАТ) = АТАМ(ТС» 

СО ТО 360 

IFCY (L), LT. 0.) GO TO 330 

FAI(L) = 0.5 «РІ 

СО TO 360 

ҒАЦТ,) = 1.5 «РІ 

GÖ TO 360 

FAIL) = ATAN(TG) + PI 

GO TO 360 

ГАІ» = ATAN(TG) + 2.6 ж PI 

ЕДІС,) 一 FAICL ж 180. 0/PI 


ІЕС. EQ. 2) GO ТО 370 


GPL) = GP(L)/GP (2) 
CONTINUE 

541) = 1.0 

FAI = 0.0 

СР(1» = 0.0 

х(1› = 0. 0 

Ү(1) = 0.0 

СР(2) = 1. 0 

WRITE( є ,400) 
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WRITE(6,400) 

400 КБОЕМАТ(/2Х,17,2Х,1Һ%1Х,%%1Х,7%,1Х 
Ѓ,"та',1Х, п?,1Х,'а',6Х,'Х',12Х,'Ү',9Х, 
С°,7Х,ЕАГ,7Х,'8',7Х,'51/(51)0°/) 
рО 4101 = 1,МРТ 
51 = 501) x +2 
WRITEC * ,420) Т.1211) ,1,2010,13<1),14(10), 
LSD LS ҰҰО,СР(ІО»,ҒАТ(13,5(1),51 
WRITE(6,420) 1,1-1(1),1.2(1),1,3(1),1.41), 
/1,5(1),1,6(1),Х()),с(),СОР(П1),ЕА1(1),5(1).,51 
WRITE(10,430) Х(}),Ү(П),51 

410 CONTINUE 

422 ЕОЕМАТС1Х,12,1Х,612,2Е12. 4,Е10. 4,Е7. 2,2Е11.4) 

430 КҒОКМАТ(1Х,3Е13.4) 

С1ОБЕ (10) 
STOP 
ЕМІ) 


程序 2-2 ”电子 衍射 花样 的 模拟 图 
一 ,程序 名 ;DPPLT 


二 .功能 


将 记录 有 衍射 斑点 的 谷 标 及 相对 入射 强度 (和 运行 程序 2-1 
QSCRST 所 得 到 的 准 鲁 二 十 面体 相 的 电子 入射 人 花样) 的 数据 文 
件 ,在 屏幕 上 画 出 衍射 花样 图 . 


шн 


1. 从 输入 数据 文件 读 入 每 个 衍射 斑点 的 坐标 和 衍射 强度 
2. 按 输入 的 图 形 参数 要 求 ,将 读 入 的 各 入 射 班 点 数据 转换 成 
相对 坐标 和 强度 图 半 径 R. 
3. 调用 画图 子 程序 PLOT, 在 每 个 衍射 班 点 处 以 根 应 的 强度 
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圆 半径 为 半径 男 实 心 圆 ,在 屏幕 上 显示 入射 花样 图 . 


转 售 到 屏 竟 的 图 形 显示 模式 
1-=0 


回复 到 屏幕 的 字母 ,数字 显示 模 示 


[结束 ， 
流程 图 2 一 2 
五 .变量 说 明 
х 为 键入 的 输入 变量 ; * < 为 从 数据 文件 法人 的 输入 变 基 . 


WD" , ЖЕ. 
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HT" ;图 形 高 度 ， 

RP ` :强度 圆 半 径 参 量 , 以 此 调节 表示 斑点 的 衍射 强度 的 实心 贺 的 
Жм. | 

SR" :强度 圆 半 径 下 限 , 小 于 此 值 的 衍射 班 点 被 略 去 不 圆 出 ， 

N** :输入 数据 文件 中 衍射 班 点 的 总 数 . 

ХО) * *,Ү)" S0 ,I = 1,N, 分 别 是 第 I 个 衍射 斑点 的 纵 、 
祛 坐 标 与 相对 衍射 强度 . 

ІХ ,IY,R:; 电 子 衍射 花样 图 上 ,分 别 是 第 I 个 衍射 斑点 的 相对 纵 、 
模 坐 标 与 强度 圆 半径 。 


六 , 子 程 序 说 明 

1.ЕМ(М,Х,МАХ,МІМ) 

在 一 组 XID,I= 1,N 中 ,确定 极 大 值 XMAX 和 极 小 信 
ХМІМ. 

2. SCREEN GC}, PLOT(IX ,IY ,IC) 

W 为 在 屏幕 上 画图 用 的 汇编 子 程序 ,详细 说 明 参 见 程序 7-7 
SOLITN 

3. CIRCLE (XC ,IYC,R,IC) 

调用 PLOTAX,IY, IC), M IXC,IYC 为 圆心 ,R 为 半径 ,在 屏 
EEAO IC = 3 时 ) 的 实心 圆 ， 


七 ,计算 实例 


将 从 程序 2-1 QSCRST 算得 的 如 QCDATA 的 难 晶 二 十 面体 
相 的 电子 衍射 花样 的 数据 文件 ,采用 本 程序 通 图 , 图 形 的 宽度 和 高 
ЕЖ 100.0, 强 度 圆 半径 参数 取 6.0, 强 度 图 半径 下 限 取 0. З, Вр 
可 画 出 入 射 花 祥 . 

本 程序 运行 时 ,一 方面 从 QCDATA 的 文件 ( 见 程序 2 一 1) 读 
入 衍射 花样 数据 , 另 一 方面 采用 人 机 对 话 方式 , 按 屏幕 提示 以 自由 
属 式 键入 输入 数据 , 运行 后 在 屏幕 上 遂 出 电子 入射 花样 ( 见 图 
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2-7). 


10 


20 


运行 指令 ;DPPLT QCDATA 
八 、 源 程序 :DPPLT • FOR 


PROGRAM DPPLT 

DIMENSION Х(200),Ү (200),St200) 

ІХО = 150 

ТУО = 100 

ОРЕМ (1,FILE = ’ ',STATUS = '*OLD') 
WRITE( ж INPUT THE WIDTH ОЕ PLOT” 


7 Ел WD = “ МУЗ 


READC# ,x} WD ` 

WRITE( INPUT THE HEIGHT OF PLOT” 
г HT = ",\)') 
РЕАр( +, + > НТ 

WRITEt( < ,'(” INPUT RADIUS PARAMETER” 
/, ОЕ INTENSITY CIRCLE, ЕР = "\Y) 

READ +», x ) КР 

WRITE( + "С INPUT THE LOWER LIMIT" 
/.” OF INTENSITY, SR = "”N)') 

READ( + ,* ) SR 

І--1 

READ (1, * ,END = 20) Х,У SCI 

1Е‹5(1).1.Т. SR} GO ТО 10 

1 = 1+1 

GO ТО 10 

М = 1-1 

CALL ЕМСЧ,Х,МАХАХ,МІМХ ) 

CALL ЕМЯМ,Ү,МАХҮ.МІМҮ) 

CALL ЕМ (Ч ,S,MAXS, MINS) 

XD = MAXX 一 MINX 

YD = MAXY 一 MINY 

SD = MAXS — MINS 


RX = WD/XD 
RY = HT/YD 
RR = RP/SD 
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30 


CALL SCREEN(4) 
DO 301-1,М 
ІХ = INT(RX + X(D) + IX0 
TY = INT(RY *Y(D) + LYG 
R = RR x SD 
IF(R,LT.0.1E — 4) GO TO 30 
CALL CIRCLE<(IX,IY,R,3) 
CONTINUE 
PAUSE’ ° 
CALL SCREEN (2) 
STOP 
END 

SUBROUTINE ЕМ(М,Х,МАХХ,МІМХ) 
DIMENSION Х(200) 


MAXX = X (1) 
MINX = X(1) 
DO 101= 2,N 


IF (ХО). GT. MAXX) MAXX = X(1) 


ТЕ ХА» LT. MINX) MINX = ХОУ 


10 


10 
20 
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CONTINUE 
RETURN 
END | 
SUBROUTINE CIRCLE(IXC ,IYC,R IC) 
DO 202... L INT(R) 
RL = FLOAT(L; 
N = INT(3. 1415926 + RL * 2.0) 


DA = 1. 0/RL 
А = 0.0 
DO 101=0,М 


IX = INT(RL * COSCA5) + ІХС 
ТҮ = INT((RL x SIN(A) + ЕІ.ОАТаҮСУ) + 0. 92) 
CALL PLOT (IX „ТҮ ,IC) 

A=A+DA 

CONTINUE 

RETURN 

END 


52.2 非 品 态 材料 的 结构 分 析 


非 唱 固态 材料 是 另 一 大 类 刚性 固体 , 普遍 地 说 , 当 组 成 物质 的 
原子 .分子 的 空间 排列 不 呈现 周期 性 和 点 群 对 称 性 ,长 程序 受到 破 
坏 , 只 是 由 于 原子 间 的 相互 关联 作用 ,使 其 在 几 个 原子 间距 的 小 区 
间 和 内 ( 约 10 一 15A), 仍 然 保持 着 形 镁 和 组 分 的 某 些 有 序 特 征 ,这 
样 一 类 特殊 的 物质 状态 统称 为 非 晶 态 . 也 可 简略 地 认为 , 非 晶 固体 
是 不 具有 长 程序 ,但 存在 短程 序 的 固态 物质 ， 

对 于 韶 态 ,我 们 可 以 采用 点 阵 常 数 和 晶 格 类 型 来 描述 其 周期 
性 和 和 对称 性 ,而 对 于 非 晶 态 ,由 于 不 具有 长 程序 ,点 阵 常 数 和 晶 格 
类 型 完全 失去 了 意义 ,本 节 将 论述 非 唱 金 属 及 合金 的 结构 描述 方 
Ж. 


2.2.1 ЧЕЕАМЖИНУ 2A tS Ж 


原则 上 说 ,对 于 一 块 由 入 AET FJ pt ИЗЕУ. Я ВЕ 
明确 给 出 这 N 个 原子 中 心 的 坐标 及 各 原子 的 种 类 ,就 严格 地 确 害 
了 这 块 材料 的 结构 . 但 是 现 有 的 实验 技术 无 法 确定 这 ЗМ 个 坐标 ， 
而 且 如 此 庞杂 的 一 堆 数 字 也 不 是 描述 结构 的 合适 方式 . 目前 普遍 
采用 径 向 分 布 荔 数 来 统计 地 描述 非 晶 态 材料 的 微观 结构 ， 

在 尺 ' 射 线 衍射 分 析 理 论 中 ,定义 原子 入 射 的 结构 因子 为 

F(q) = Y fexplik — ko) * R.) == X, Декр(ї@ • Ку) 


(2 — 59) 
AP k, 为 入 射 叉 射线 的 波 矢 为 散射 和 射线 的 波 天 ,9 = k — k. 


称 为 动量 转移 ;4 = ТЕТ = n; х К: Р, 则 为 第 了 个 原子 


HER: S 为 第 j 个 原子 的 散射 因子 .XX 射线 的 衍射 强度 了 正比 于 
F (q> 的 绝对 值 的 平方 : 
{= |F(q)|? = Ға) ҒӨФ 
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= X; f, + 2; 2; РУ explig. (R, — R,)3 
= 5 Lf, |? + > У! ЖЖ exp(ig ° R;;) 
í i Jé: 
| (2- 60) 
AFR = R, R. 55 М8], РЕЧЕ ЈЕ, К, 的 值 不 能 分 
别 求 出 ,故我 们 只 能 计算 平均 强度 , 在 原子 之 间 相 对 取向 任意 的 情 
况 下 ,可 对 4 与 吕 / 的 夹 角 0 取 平均 .如 图 2-8 所 示 . 由 此 算得 (2-60) 
式 中 指数 项 的 平均 值 ; 
exptiq 5 Rp) = ag. exp lig - К.У зіпблбаф 


sin (q < Ra) 


= Е. — | (2 — 61) 
A F q = lgl R; = 
IR,,|. 将 (2 一 61) 式 代 { 
入 (2 — 60) 式 ,就 得 到 ` 4. 
无 规 取向 的 原子 阵列 的 ж 1“ 
平均 弹性 散射 强度 为 — =. 
I (q) == 2 |, | шыту” 22. 
N P. #4 PP ы 
sin (48,0 
qR | 
(2 — 62) 
此 式 称 为 德 拜 人 么 式 . 
图 2-8 计算。 平均 值 的 示意 图 
Е У Е 
RDE (r) = 4r plr) (2 一 63) 


它 是 以 第 :个 原子 为 中 心 ,半径 在 ~ 与 = 十 安之 间 的 球 壳 内 的 了 原 
子 的 数目 . 引入 此 概念 就 可 将 (2 — 62) 式 第 二 项 的 第 二 个 求 和 写 
成 积分 , 变 为 
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а) = D+ DAS; |" me =n ш, 


《2 — 64) 
邻 户 为 祥 品 的 /原子 的 平均 密度 ,加 上 和 减 去 包含 e, 的 项 ,得 到 


ы” 46 (r) = р) sin (qr) 
ros уул УЛ | ru ea та ana, 


tR? гл š 
Ей > f, 1, EU (2 — 65) 


qr 


шр” q) а инва, ТИЕП -的 增 大 而 迅速 衰减 ,因此 


可 以 略 去 上 趟 中 数值 比较 小 的 第 二 个 积分 . 从 物理 意义 上 来 说 ,第 
二 项 积分 代表 具有 严格 均匀 电子 密度 的 假想 物体 所 徐 射 的 强度 ， 
这 种 物体 的 散射 ,只 发 生 在 小 角度 上 ,在 0 之 3 扩 时 就 可 名 略 ; 在 8 之 
3 范围 店 : 这 敬 射 又 往往 佣 透 射 的 原 线 束 掩 慢 了 .因而 队 非 用 等 殊 
的 实验 技术 ,一般 是 观测 不 到 的 . 如 果 我 们 将 注意 力 集中 在 实验 能 
观测 得 到 的 强度 上 ,并 注意 到 短程 有 序 范 国 只 有 几 个 原子 ,此 项 融 
可 忽略 ， 

进一步 假设 所 有 的 原子 都 相 赐 , 即 只 合 一 种 原子 的 傅 形 ,可 将 
(2 — 65) 式 简 化 为 


Па) = Nf + МА G =н ый = РА) ып Ч. (2 66) 
引入 结构 因数 5 或 称 相 干 国 数 ) 
а) = RE = ЈР (2 — 67) 
及 偶 分 布 函 数 ( 有 些 文 献 称 为 偶 相 关 函 数 ) 
. glr) = а (2 一 68) 
Ж ай = 1+ | ать tr) —1 =] 2 ти (2 一 69) 


AP po ЕЕЕ T. (q) 为 平均 每 个 原 于 的 相干 散射 强度 


结构 因数 是 平均 每 个 原子 的 相 千 散射 强度 与 单个 孤立 原子 的 相干 
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和 散射 强度 的 比值 ,是 可 从 实验 测量 和 计算 得 到 的 量 . 图 2-9 给 出 各 
态 物 质 的 偶 分 布 函数 示意 图 . Алғ рс) 一 po] 称 为 差分 原子 分 布 


RK. 
4”) 
ТЕ 
7; ғ 
42 
1 
O к 
图 2-95 ЖӘЙ PR60485 т A 02 E E 
(a) X ожа (ааа (4% 
根据 5 函数 的 定义 ,有 
lim 1 | | exp (igr) dy = lim 2 — S(r) 
《2 一 70) 


lim | exp (4744 = r 
将 (2 一 67) 式 代 入 (2 一 66) 式 , 作 反 傅 里 叶 (Fourier) 变换 ， 


并 利用 (2 一 70) 式 , 得 到 
Кес — 1) 2а сіп Сағ” УЧ 


381 ! т 
一 | Ал, Срб) — 0) EE 二 | ѕіп (97) вїп (ағ Әағау 
& r LN I O 
= 4rr tplr ) — ро) SS i 
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整理 后 ,有 
RDF(r) = 4mr2ə(r) 


= 4лт?о, 十 КСС — 1Jsin(gr)ydg (2 — 72) 


从 (2 一 59) 和 (2 一 72) 式 可 知 , 将 实验 测 得 的 衍射 强度 1(g) 作 反 
傅 里 叶 变 换 , 就 可 得 到 径 向 分 布 范 数 , ARAE Menke) E $ 
将 此 方法 用 于 液态 乘 结构 的 研究 . 在 8 2. 3 讨论 液态 金属 的 结构 
时 我 们 还 要 用 到 它 . 

从 径 向 分 布 函数 曲 RDF 
线 可 进一步 算得 近邻 原 STA, 
ГІ Ён ЖП BÚ (У Ж. 


хто 曲线 随 着 了 增 


大 而 在 Anr’ p, 曲线 附近 
ЕТКЕЙ. f R imar 40 
布 函 数 的 定义 Ж 
4rrp(r) 曲线 上 第 一 峰 ар 
下 的 面积 就 是 最 近邻 原 | 
子 壳 层 内 原子 的 数目 ， 


径 向 距离 7(A ) 


即 配 位 数 ,而 曲线 峰值 
对 应 的 则 给 出 最 近邻 роо 非 晶 钻 的 径 向 分 布丁 数 ,虚线 表 
原子 的 位 置 . 次 近邻 ,第 E 
= ыы 可 依 此 类 
HE. 作为 例子 ,图 2-10 给 出 了 非 蝇 钼 的 径 阿 分 布 函 数 , 碍 线 的 峰值 
分 别 给 出 最 近邻 ,次 近邻 与 第 三 近邻 的 位 置 . 配 位 数 ( 即 最 近邻 原 
子 的 数目 ) 可 由 积 

07 | (2 = 73) 


sk 得 . ЕЖЕН Ет ҺАН НЕГЕ ЕН 

线 为 4rr*po, 它 是 物质 密度 取 平 均值 时 的 结果 - JAEL PÍ BL , 24 > Z W 

增 太 时 , 峰 和 人 各 越 来 越 不 明显 ,这 表明 短程 序 只 在 几 个 原子 范围 内 
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EEM. ОН ЗЕ ЕТ. 
在 非 蝇 态 结构 分 析 中 , 也 常用 到 约 化 径 向 分 布 函数 Сот). 其 
定义 是 
G(r) = ілгСобғ) — p) (2 一 74) 
ep 一 71) 式 , 得 到 


Gir) = 21 асаба) — 1) sinfor)dr (2 — 75) 


总 之 , 非 唱 态 材料 的 结构 可 用 不 同形 式 的 三 个 分 布 消 数 КРЕ (r), 
gir) 及 G(r) 表示 ,可 根据 问题 的 需要 选用 . 由 于 用 实测 结构 因数 
a(g) НЯ СО 最 为 简便 , 所 以 一 般 先 从 a (q) 算出 G(r), ҒА 
GG) 算出 其 余 两 个 . go, RDE) S G(r) 的 关系 分 别 为 

КРЕ (ry = ілер, + "Со (2 — 76) 


(y (r) 
ARNT Do 


2.2.2 ЕЖЕНЕТИЕФЖНИЕ p] 27 Ati РЁ Ж 


大 多 数 非 晶 态 材料 ,都 含有 两 种 或 两 种 以 上 原子 . 下 面 讨论 它 
们 的 结构 描述 . 


ПАМЈЕ 


设 所 讨论 的 非 唱 态 合金 的 成 分 为 4.B,,A В 分 别 为 元 素 的 
种 类 ,x 和 yy 分别 为 这 两 种 元 素 的 原子 百分数 ,下 面 导 出 合金 分 布 
函数 与 可 从 实验 测定 的 结 悔 现 数 之 间 的 关系 . 

在 此 情况 下 ,原子 分 布 可 看 作 三 种 分 布 的 登 加 : 

L. 以 样品 中 任 一 4 大 子 为 中 心 ,其 周围 4 ВА 228. 

ДУЛЕ BETETE, МАН ҒЫЛАР ЖО 
dnr ок „(т ЯР paa (r) ЭН E TR {ЕЧ U BJ А JT BJ WE ES г 
处 的 4 原子 的 平均 密度 .类 似 于 (2 — 75) 3,5 pa_ A (r) 相应 的 偏 
侦 分 布 函数 5 有些 文 献 称 为 假 侦 相关 国 数 ) 为 
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(2-- 77) 


(г) = ] + 


a-a r) = 《2 — 78) 


G 


Pa- afr} 
oA 


Ah в ЕФ A Jaw ЕН, A % = zpo, 类 似 于 (2 一 69) 
$, 5 gaar) Rw Wi 5k u A ЖИК БЕП ЕУ РЕ 为 
a,-a (g) = 1 + | Anr Сил a (r) — 1) мей, 
(2 — 79) 
对 (2 一 79) 式 作 反 傅 里 叶 变 换 , 可 得 到 相应 于 这 种 分 布 的 偏 
约 化 分 布 函数 
Сл-А(ғ) --4л"Грд-л(”) 一 02 J. 
= 2 асал (Q) езін әмір (2 — 80) 
2, 以 任 一 B 原子 为 中 心 , 其 周围 B 原子 的 径 向 分 布 . 
由 于 了 吾 一 吾 厌 子 对 的 相互 关系 类 似 于 4 一 4 原子 对 的 关系 , 故 


yry, 


as a (q) = Í + Anr б Сен akr) — 10 
(2 — 81) 
(зв н) == Ке ng) == 1) sin таа (2 — 82) 
3. 以 任 一 4 T uch b R Н B ATHER fi. 
和 上 面 两 种 分 类 类 似 , 有 
дА pq) = 1 +J. Алто Cga sr) — 10 мед 
(2 — 83) 
_ 2 | _ 
Giur) = ed qlaa glg) — lsin grdg 《2 — 84) 
很 明显 ,以 妃 原 子 为 中 心 , 其 周 国 4 原子 径 向 分 布 也 可 用 类 个 
的 表达 式 表示 - 
非 晶 样 品 的 X 射线 衍射 实验 给 出 的 是 总 散射 强度 曲线 ,而 前 
述 三 种 分 布 БА-АСУ ,So_ or) Ж БА ukr) 对 总 散射 强度 都 有 贡献 I 
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每 种 分 布 贡 献 的 多 少 既 决 定 于 分 布 本 身 ( 分 别 以 a, - a (q).as-s(q) 
和 aas 表示 ), 也 决定 于 样品 中 各 组 元 的 食量 和 原子 散射 办 
T. 为 了 讨论 方便 想见, 将 4 和 吾 原子 的 原子 百 分 含 量 分 别 改 用 ca 
Mce RR ,散射 因子 分 别 用 f4 和 fs 表示 . MR g aN ARR, 
组 元 含量 和 原子 散射 因子 对 衍射 强度 的 影响 能 力 可 分 别 用 ca Ж. 
АСР 表示 . 了 是 平均 原子 散射 因子 ,可 取 了 = (cafa + Cafe). C4 
和 A/F 称 为 权重 因子 . 对 其 它 两 种 分 布 也 可 采用 类 似 的 权 慢 
因子 ,因此 全 结 构 因 数 应 为 各 偏 结 构 因 数 加 权 后 的 和 , 即 

ҮЙ 


аб) = “Pa A (g) + P as- a (g) + peaca sf ea stg) 
(2 — 85) 
式 中 权重 因子 之 和 等 于 1, 80 
з + ЫЗ шаны „| (2 一 86) 


米 们 于 (2 — 69) 和 (2 一 85) zÉ Z [8] BJ Ж.Ж IB r ЕА 


g (r) tl, (и B Y АП А ЖЕРИП а ПАП, РП 


Ses. s (r) + дасы ы або) 


86”) = EN АС) + 
(2-- 87) 


(2 一 85) 式 表 示 的 全 结构 因数 alty) 和 (2 一 87) 式 表 示 的 全 
但 分 布 函数 g(r) 之 间 有 类 似 于 {2 一 69) 式 的 关系 : 


a(g) = | + | Ал” ры (g (r) — 1] Ді “2” (2 — 88) 
{> (2 一 67) ЖЕ Ж 
a(q) = г) ышы. (2 一 89) 


КНР = c, 4 ca fh. 3802 一 88), (2 — 89) 与 (2 一 69) 式 比较 ， 
可 见 在 含 二 种 原子 的 全 结构 因数 a (q 中 , 除 用 平均 原子 散射 因子 
了 代 圭 下 以 外 :还 多 了 一 项 (fr 一 f°) ,这 一 项 是 随 ? 的 增加 而 单调 
地 减少 的 劳 厄 单调 温和 散射 , 它 是 由 于 两 种 不 同 散 射 因 子 的 原子 无 
序 分 布 引 起 的 ,是 与 非 晶 态 结 构 无 关 的 , 故 应 从 实测 的 相干 散射 强 
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度 中 扣除 . 
二 、 多 元 系 材 料 的 径 向 分 布艺 数 


在 考虑 含有 了 种 原子 的 非 品 态 样 品 的 散射 时 ,可 以 把 适用 于 
漆 种 原子 的 (2 一 85) 和 (2 一 87) 式 加 以 推广 ,写成 更 一 般 的 形式 : 


a(q) = УУ ДО, (2-- 90) 

Ог) = У) УУ) 2 — 91) 
式 中 权重 因子 Ws = CHL F = УСС С, ЮВЕ 
和 第 j 种 原子 的 浓度 ,而 


singr 


a (q) = 1] + (Тал (r) 一 11 = ағ (2 一 92) 


© Gir) = Алғр Сц Сн) - 1) = £| дса) — 1Jsingrdg 


《2 — 93) 


=} + E) _ 
яту) = 1 + {= (2 一 94) 


RDF(r) 一 4rr or) 一 4 p rG) (2- 95) 
上 曾 各 式 表 面 上 是 从 特殊 情况 推广 得 到 的 ,但 对 含 多 种 原子 的 一 
般 情 况 进 行 严 格 推导 后 得 到 的 公式 与 它们 完全 相同 ， 


2.2.3 径 向 分 布 图 数 (RDF) 测定 
的 公式 和 数据 处 理 


一 . 引 人 衰 减 因 子 , 诗 除 截止 效应 


由 (2 — 93) тын) 1, , 傅 里 吁 变换 中 dq 的 积分 上 限 为 无 穷 ІН 3 
际 测量 中 g 的 上 限 只 能 达到 有 限 的 值 wz 这 将 引起 截止 效应 . ж 
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直接 用 dar 作为 (2 一 93) 式 的 积分 上 限 , 则 将 带 来 截止 效应 误差 ， 
使 变换 后 的 原子 分 布 函 数 上 玲 加 许多 鬼 峰 ,导致 真 峰 难 以 辨别 . 为 
消除 截止 效应 ,可 采用 加 速 收 敏 的 办 法 ,为 此 引入 衰减 因子 到, 将 
(2 一 93) 式 中 的 被 积 函 数 乘 以 e "e ,使 被 积 函 数 在 g 接近 q... 时 
HTE. 这样 (2 一 93) 式 成 为 


Gir) = 二 | шІС (4) — 13e-wtsingrdg (2 — 96) 


2 取 值 一 般 视 q... KIN E 9 <, Шо 取 值 小 ,反之 就 大 . 对 
T Mok. 9 „онх = 17. 4А ` : Жі, а 取 0. 012 E Pi EA. 


二 ,吸收 偏振 修正 
EAEI z 筷 3t4 为 线 吸 收 系数 ,zt 为 样品 厚度 ) 时 ,有 部 分 X 
射线 透 过 样品 ,必须 进行 吸收 修正 . 这 种 修正 随 实验 装置 物 安 排 不 
Іа] m 45/9]. 对 于 对 称 反 射 装 置 ,吸收 因 了 于 是 
А(90) = 0 — exp(— 2ut/sinf)) (2 — 97) 
ШЖ T 894 2: W| 1 О: 


А(20) = sech 


| ехрС- Ht(l — sec)) 
对 多 组 元 系统 , 线 吸 收 系数 应 按 组 元 平均 ИГРЕ Ж 
Ж 7 代替 [^+ 


(2— 98) 


и = p( ICA fO) (2 — 99) 
式 中 2 为 测 得 的 样 晶 的 质量 密度 (eg/em:)5C: 为 第 i 种 原子 的 原子 
数 百分比 含量 ;4, 为 第 i 种 原子 的 原子 量 . 
如 果 e > 3, 相 当 于 无 限 厚 的 样品 ,吸收 因子 4 = ЕЗІ 
射 角 6 无 关 , 故 不 必 作 吸 收 修正 . 
X 射线 经 祥 品 和 单 色 器 散射 后 都 发 生 偏振 , 故 要 作 偏振 修正 ， 


修正 所 用 的 偏振 因 于 为 
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_ 1 + cos? 20ceos 20 1--В сов? 20 _ 
P (205 = “ТС “лс. (2 — 100) 


AR б 为 晶体 单 色 器 的 布拉格 角 ;C 14 yG Fa Wg XZ , Р А ZE ffl 
射 束 中 时 ,C = 1; 而 装 在 入 射 束 中 时 ,CC = В. 

设 实验 测 得 的 X 射线 散射 强度 是 16(q), 经 吸收 作 振 修正 后 的 
值 为 11(g) ,那么 


I, (q) 


ГА (2 — 101) 


Ср = 


= JERR S E ЗОР 


在 衍射 线束 中 如 采用 高 分 辨 的 晶体 单 色 器 时 ,就 基本 上 没有 
JE 弹性 散射 . 但 若 采 用 石墨 单 色 器 ,由 于 通 频带 较 宽 , 非 弹 性 散射 
仍 能 部 分 通过 . 平均 一 个 原子 的 非 弹性 散射 强度 以 T. (q) 表示 . 

样品 这 一 部 分 的 弹性 散射 被 另 一 部 分 再 散射 , 称 为 多 重 族 射 ， 
多 重 散射 的 值 Itq) 可 达到 I 了 (g) 的 百 分 之 几 . 但 这 现象 主要 对 原 
+ 序数 低 的 元 素 比 较 显著 ,在 一 般 非 唱 态 合金 研究 中 此 项 可 忽略 
不 计 ， 

所 以 ,平均 一 个 原子 的 相干 散射 强度 L (ay 是 从 平均 一 个 原 
子 的 总 散射 强度 L (q) 中 扣除 非 弹 性 散射 的 部 分 Ltg) 和 多 重合 
射 的 部 分 Lmc) BN 

I.(g) = 1. (9) — 104) 一 了 (9) (2 — 102) 

将 上 式 代 入 {2 一 89) 式 中 ,得 


/ осор a МЕ 
абд) = 22-902 ім лай) Р =ч. І) рр (02—108) 


非 弹 性 散射 主要 是 康 普 顿 (Kompton) 散射 ,可 用 下 式 表 示 
Iata) = ,CI (q) (2 — 104) 
IP (q) = {1 — (1 -+ Cig/dr + Sy 
u 9 үзү? _ 
Ci + С». + С) 312 (2 一 105) 
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式 中 心 和 2 分别 是 第 地 种 组 成 元 素 的 原子 百 分 浓 度 和 原子 序数 . 
(2 一 103) 式 中 的 户 和 产 分 别 是 原子 散射 因数 f Cq) 的 平均 值 平方 
ТИНИН. FEAN ы, 值 已 有 解析 近似 式 表 未， 


Яу = - CoC 422 (2 - 106) 
Ға) = усл (2 — 107) 


f(g) = 524, ехр(- В,С =+ D, (2— 108) 


各 元 素 ( 第 7 种 ) 的 有 关 参 数 C, А,В, 和 DD; 可 从 国际 X 射 线 结 咏 
TR PAFI. 


` 标 准 化 


实验 测 得 的 样品 散射 强度 T, (q) 是 相对 强度 , 它 随 人 射 强度 
K KER RIFA ЖЕ. 为 了 便于 对 不 同 的 实验 结果 进行 比 
较 , 必 须 将 实验 测 得 的 强度 T, (q) 标准 化 . 

从 (2 一 69) 式 可 知 ,在 珊 角 度 的 情况 (此 时 9 很 大 ),a(g) BTF 
1 , 据 此 可 将 实测 强度 标准 化 . 实验 表 骨 ,如 果 射线 衡 射 仪 测 角 台 
J B ЯР. ИН 

L! (4) = ВІ, (q) (2 — 109) 

В 称 为 标准 化 因子 , 写 9 无 关 . 用 高 角度 法 确定 2 值 的 公式 是 
. С + 1,69) + 1,4044 
Bua = — а (2 — 110) 
|у 
式 中 диз 是 实验 所 能 达到 的 最 大 g 值 ;gs ЖЕЛЕ I. Cq) 曲线 上 只 存在 
微小 波动 的 部 分 所 对 应 的 9 值 ,一 般 取 g > ЭА !. 

经 过 上 述 处 理 后 ,(2 一 103) 式 成 为 


2-11 给 出 了 将 对 于 Fezs.s Si, Bs 金属 玻璃 测 得 的 XX 射线 衍 
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射 实验 数据 经 程序 2 一 3RDF 处 理 后 所 得 结果 . 由 此 得 到 原子 的 
配 位 数 为 11, 09, 原 子 间 最 近邻 距离 为 2. 8A. | 


图 2-11 Ееџ,; 51; Би TAREHA ур 
(а) 经 吸收 .偏振 修正 后 的 射线 散射 强度 1,4) 
(5) 全 结构 因数 a (q) 
(с) Ф PHEA T A К Gir) 
(dy + ЛЯ АЕ (гә 


173 


19 14 16 


图 2-11 Ее: Sis В. БАВИРЛАРННАЖ ОЖ 
(e) 径 向 分 布 遂 数 RDEF(r) 


程序 2-3 非 品 态 材 料 径 癌 分 布 函 数 的 计算 


一 ,程序 名 :RDF 


二 .功能 


输入 非 岂 态 材 料 的 XX 射线 散射 强度 的 实验 数据 IoCq) ,计算 结 
ША Ж a (q) 、 约 化 径 回 分 布 函数 C(r) , 偶 分 布 函数 g(r) 和 径 向 分 
А RDE r), ЖА RDF(r) ШЖ AIRT lal ДОТ [ИЕ r, ШЫ Ж 
配 位 数 N. 


Zİ RE 


1. 输入 组 成 元 素 的 原子 序数 ,原子 吾 分 浓度 ,XX 射线 非 弹性 散 
射 强度 表示 式 (2 一 105) 的 系数 ,名 射线 原子 散射 因数 表示 式 (2 -一 
108) 的 系数 .有 关 测 量 条 件 的 参数 以 及 对 应 各 入 射 角 0 的 散射 强 
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RE 1.4) 的 值 (4 == 27 sing). 

2. 按照 (2 一 110) 式 计算 标准 化 因子 8, 得 到 I.'(g) ,再 用 (2 一 
111) 式 计算 结构 因数 a (q). 

4. 作 反 傅 里 叶 变换 ,按照 (2 一 96) 式 计算 约 化 经 向 分 布 函数 
Gir). 

5. 按照 (2 一 94) ИИЙ АПЕК go). 

6. 按照 (2 一 95) ЖИЯР 5716 RDF). 

7. 确定 RDF (r) 曲线 的 第 一 峰 位 ,得 到 近邻 原子 间距 离 , 按 (2 
一 73) 式 计算 配 位 数 . 由 于 第 一 峰 的 右 侧 已 和 第 二 峰 释 加 在 一 起 
T , 故 计算 配 位 数 时 ,实际 上 是 取 第 一 峰 左 半 部 的 面积 的 二 借 ， 


五 .变量 说 明 


x 为 输入 变量 ;: 十 为 输出 变量 . 

INFMAT " :文字 信息 .字符 型 变量 

NELMT" :样品 中 所 含 元 素 种 类 的 总 数 . 

ELEMT( ,I = 1,NELMT, 第 1 种 元 素 的 符号 . 字符 型 变量 . 

ZG) ,I = 1,NELMT, 第 1 种 元 素 的 原子 序数 . 

СЕС :I = 1,NELMT,J = 1,9. J F ІНЕ ERTAN 
因数 fCq) 的 近似 式 中 的 第 J 个 系数 ， 

СМ,” = 1,NELMT,J = 1,4. 对 于 第 I 种 元 素 , 在 X 射 线 非 
相 千 散射 强度 I,(q) 的 近似 式 中 的 第 ] 个 系数 . 

CELMT(I)' ;1 = 1, NELMT. 第 I 种 元 素 在 样品 中 所 占 的 原子 吾 
分 比 . 

AVDENT` ;样品 平均 原子 密度 ,单位 :A °, 

THCKMU ' ;平均 线 吸收 系数 与 样品 厚度 的 乘积 . 对 于 一 般 非 薄 
膜 祥 品 ,其 值 大 于 3,; 不 必 作 吸 收 修正 ,; 故 可 取 任 意 大 
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:偏振 修正 ， 
Po 输出 文件 IQ 


"D 
TREE 
给 出 文件 G2R 


计算 并 和 输出 最 近邻 原 
ТІНЕ Ж 


жн 


EFES 
流程 图 2 一 3 
于 3 Я. 
ALAMDA .入 射 X 射线 波长 .单位 ;24， 
B` ; P f $ TV KA. 


СВ. 

АРНА *; Ер е. 

RGI ,RG2，:g(r) 曲线 第 一 峰 左右 两 侧 底部 的 z 值 . 它 只 对 计算 
最 近邻 原子 间距 离 及 配 位 数 有 影响 . 第 一 次 运算 时 可 
输入 估计 值 ,得 到 gCr) 曲线 后 取得 并 改 为 输入 准确 
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值 , 以 计算 准确 的 配 位 数值 . 

NQ' :所 取 波 矢 q 的 数量, 也 即 输入 的 XX 射线 散射 强度 L. Ca 值 的 
KE. 

рО“. ЕНУІНЕ, (ў: À . 

ҮС) .1 = 1,NQ. 此 数组 在 运算 的 不 同 阶 段 ,分 别 表 示 不 同 的 物 
理 量 , 输入 时 表示 X 射线 散射 强度 I6Cq), 作 吸收 偏振 
修正 运算 后 表示 L(q), 随 后 依次 表示 aq) Gir), 

| g(r) ЖІ RDF Cr), 

Х(1).1 二 1,NQ, 4 Y(D 表示 Itay (a) Mala) X 表示 波 
R a НІШ ҮС» 表示 Gr) ,glr) A RDF) Rf. 
Ха) 表示 距 某 参考 原子 的 距离 7 ЕҢ. 

NR; 所 取 r 值 的 数目 ,因而 也 是 GOr) gi) M RDF) 的 值 的 数 
Н. 

DR:r ИВ. 单位: 和. 

ВЕТА, ЖЖЖ 2. 

ЕР” ,g(r) ЖІ КОЕ (г) 曲线 的 第 一 峰 的 峰 位 , 单位 ,A， 

HW- ;g(r) 和 RDF(r) 向 线 的 第 一 峰 两 侧 半 蜂 高 位 置 相隔 的 宽 
E. BM А. 

С. Еа. 

FAVR2(D:I = 1.NQ. 原子 散射 因数 f(q) 的 平均 值 的 平方 ? (q). 

F2AVCI(D ;1 = 1,NQ. 原子 散射 因数 的 平方 平均 值 f(q) 5 X 6 
线 非 相干 散射 强度 (д) 之 和 ， 


六. 子 程序 莘 明 
т. ЕСО. NELMT CELMT ,Z,CF,CIN ,FAVR2， 
Е2АУСЇ) 


根据 (2 一 104) 至 (2 一 108) 式 计 算 了 (9) AID + L. CQ) 的 
НЕГЕ ЕНЕМ ЛЕНИН. 
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2.ЕЕТ«ЕК,ҒІ,М,К,МЕ) 

快速 伟 里 叶 变 换 的 子 程序 . N 为 参与 变换 的 数据 点 总 数 ,N = 
2* ,此 程序 中 ,K = 11,FR(1),FI(D) (= 1,N) 为 输入 ,输出 数组 ， 
输 入 时 它们 分 别 是 要 作 变 换 的 复数 数据 点 集 的 实 部 和 内 部 ,输出 
时 已 焕 成 变换 结果 的 实 部 与 虚 部 . NF 为 输出 结果 排列 着 序 的 控 
制 参量 ,可 取 + 1. 十 1 表示 结果 按 自 变 量 从 大 到 小 排列 ; — 1 则 
反之 . 

3. ГСІМТІМ,ММ,Х,Ү,ХІ, YI) 

用 拉 格 朗 日 (Lagrange) 四 点 三 次 播 值 法 计算 插值 函数 的 子 
程序 .N 为 已 知 函 数 序列 的 总 点 数 ,X(D ,YCD CI = 1;N) 分 别 为 
D SIE EK F PS Ë FE É I SK I£ MM 为 每 次 插值 用 到 的 已 知 芍 
数 点 数 , 此 处 MM = 4:XI 为 欲 播 点 的 自 变量 (输入 );YI 为 相应 的 
插值 函数 (输出 ). 


J 8404803 Fez. Sis В, 金属 玻璃 的 一 组 天 射线 散射 强度 实验 
数据 I,ty) ,用 此 程序 计算 吸收 偏振 修正 后 的 alg) Gir), 
g(ry,RDF (r) 坟 及 最 近 绅 原子 间距 离 和 配 位 数 . 样品 是 用 思 带 法 
制 备 的 条 状 稍 , 故 伴 品 较 厚 ,zx > 3. 实验 用 的 是 Mo Æ K. gi, 
= 0. 7107А ,测量 计 , 石 黑 单 色 器 置 二 衍射 束 中 ,有 B= 0.9556 和 和 
С = 1.% 取 0.012. 第 一 次 运算 后 ,从 得 到 的 g(r) 曲线 量 得 RG1 和 
RG2 分 别 为 2A 和 3.5A. 以 此 作 输 入 ,最 后 算得 原子 间 最 近邻 距 
г, = 0. 62&, 配 位 数 N = 11.09. 

本 程序 运行 时 ,采用 预先 制备 的 数据 文件 RDF - DAT {EHA 
文件 ,数据 采用 自由 格式 读 入 , 运行 所 得 结果 除 在 屏幕 上 显示 外 ， 
还 生成 一 个 如 DUT 的 输出 文件 贮存 结果 备查 . 此 外 ,程序 运行 
后 ,还 上 自动 生成 五 个 输出 数据 文件 IQ,AQ,GIR ,G2R 和 RDF [fE 
图 用 . 对 这 些 数据 文件 ,可 运行 程序 7 一 2PLTCV2. 在 屏幕 上 分 别 
ІШІҢ T (q) a(gy,G(r),g(r) 和 RDF 曲线 ,并 将 屏幕 上 显示 的 
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加 形 从 打印 机 输出 ,结果 见 图 2-11. 
运行 指令 :RDF RDF . DAT OUT 


八 . 输 入 文件 RDF . DAT 


(以 计算 Ее,» s 51; В.в. 金属 玻璃 为 例 ). 
'INPUT БАТА FOR а 一 Fe78. 5Si5B16. 5. LINFMAT 
3 'Fe' 26. 5714. 'B'5. {NELMT,ELEMT {1) ,Z(1) 
11.7695 ,4, 7611,7. 3573,. 3072,3. 5222, 


15. 3535,2. 3045,76. 8805,1. 0369 [СЕ ОЕ Ғе 
6. 2915.2. 4386,3. 0353,32. 3337,1. 8991. 
‚ 6786,1. 541,81. 6537,1, 1407 [CFOFSi ` 
2. 0545,23. 2185,1. 3226,1. 021,1. 0972, 
60. 3498,. 7068,.1403, —. 1932 [СЕОЕВ 
19. 278,77.511,13.788.3.1076 (СІМОЕҒе 
80. 719.1508. 4.52. 054,36. 898 [CINOFSi 
7.2997,272. 81.22. 693,34. 403 [CINOFB 
0.785 0.05 0.165 [СЕІ. МТ (Ее? .СЕІМТ (51) ,CELMTB) 
0.065146 10. ГАУБЕМТ,ТНСКМО 
0.7107 0.9556 1. 0.012 [ALAMDA, B.C, ALPHA 
2.0 3.5 [RGT,RG2 
342 0. 05 0.0 17.05 [NQ .DQ .QMIN,QMAX 


11+.0000 14.9026 16.0667 17. 4697 
18.9765 20.9936 23.5526 276. 1888 
29.4066 32.9143 37.9157 43. 6138 
51.3677 60.1173 73.8372 89.2675 

110.5486 135.1346 166.8724 203. 6636 
240. 7188 271.339} 280.8845 267. 7231 
235.9050 203.3199 167.9160 140.0666 

115.8484 98.0916 83.5724 70, 5017 
61.8674 53.4330 46.7394 41.7480 
36.8911 33.4786 30.4587 27.8161 
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25. 4240 
21. 8556 
22. 9158 
28. 4950 
39.6819 
96. 3564 
64. 8939 
оо. 6881 
41. 3222 
34, 9653 
32. 0682 
29. 5634 
25. 2297 
22. 1860 
19. 15885 
18. 0272 
18. 0785 


19. 3089 , 


20, 0552 
20.1101 
18, 4454 
16. 6909 
15. 2399 
13. 2776 
12.0483 
11. 4545 
10. 7340 
10. 2618 
10.1770 
9.8869 
9.6947 
9. 4454 
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‚3330 
‚6070 
‚2576 
‚3316 
‚3413 
‚ 6568 
. 4338 
‚6858 
‚9604. 
,5470 
. 5868 
. 7756 
‚2576 
‚3279 
‚ 6886 
‚9091 
‚ 1359 
‚6627 
, 2818 
, 9206 
. 0128 
. 0728 
. 7382 
. 9129 
. 7836 
. 2161 
‚5810 
‚3107 
‚ 0886 
, 7691 
9, 
9, 


6801 
3972 


22. 8576 
21. 5408 
24. 8317 
33. 9312 
47.6119 
63.1963 
62. 1792 
47. 2832 
37. 0360 
33. 2698 
31. 0628 
27.9478 
23. 5177 
20. 5363 
18, 3935 
17.9783 
18. 2990 
19. 8066 
20. 3477 
19. 55443 
17.7620 
15.6285 
14. 2296 
12. 6832 
11. 5183 
11. 0353 
19. 4566 
10. 2664 
9. 9608 
9. 6226 

9, 6142 

9. 3614 


22. 1546 
22.1327 
26. 5718 
36. 4797 
51.6282 
64. 4533 
58. 5938 
44. 0613 
35. 6112, 
32. 6319 
30. 3953 
26. 6623 
22. 8374 
19,8162 
18. 2260 
18. 0596 
18. 7437 
19. 9386 
20, 2338 
19. 0533 
17. 3018 
15. 5035 
13. 7443 
12. 3995 
11.5738 
10. 8976 
10. 3912 
10. 2349 
9. 8862 
9.6548 
9. 5253 
9.2718 


+ 


6. 


с О DD C сп A іл іл nN A ІЛ mh 


. 1300 
. 6185 
. 2173 


9114 


. 4572 
. 0714 


7950 


‚ 4847 
‚4459 


2615 
2793 


, 2274 


1022 


+ 0460 


9173 
8102 
7417 
7787 
2968 
6291 
6948 
6505 
6391 
8360 


. 96938 


8795 
0221 
2308 
3824 
3462 


. 4396 
. 5710 


м їл л 


Үз 


C іп 4 Сі с A A қыл л 


т л щл і A A A о A 3 бо о о 


. 9595 
. 4633 
1917? 
‚ 7085 
. 2689 


9237 


. 7047 
‚3687 
‚ 4240 
. 3131 
. 2175 
. 1942 
‚ 0583 
. 0239 
. 9311 
‚7446 
. 6925 


5717 


, 5533 
. 6792 
. 2946 


3803 


.7258 
.8162 
, 8526 
. 0061 
. 0528 
. 2432 
. 2609 
. 3893 
.5050 
. (142 


Cs сп < єз су = b дО СО сю 


с> 


іл сл тл із іл іл їл Ял іл сл Тл дл ӨЛ m 


. 9115 
. 3587 
‚0990 
. 5461 
‚ 1559 
. 0006 
‚ 6685 
. 4721 
. 3501 
‚ 2855 


1535 


. 1229 
. 9167 
. 9878 
‚8697 
, 8923 
. 6889 
. 6244 
‚6412 
‚ 6678 
: 9226 


6991 


ГЕ ЕТ. 
. 9113 
. 8722 
. 0106 
0835 


1934 
2800 
1169 


. 1885 
. 4108 


л л фо л л щл лом о с @ @ о @ m о гэ з м б 


л 
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10 


20 


6. 9752 6.9135 . 7. 0250 7. 0602 
7. 05857. 0625 [SCATT, INTENS. (10,1 = 1,NQ 


PROGRAM RDF 
DIMENSION Хо<600) ,Ү0(600),ҮВ(2048),Ү1(2048) 
DIMENSION CELMT(5),Z(5),CF09,5), 

/ СІМ(4,5),РАУВ2(600) ,Е2АУСІ‹600) 

COMMON РІ,Х (600), Y(600) 


CHARACTER + 2 ІМҒМАТ x 80.ELEMT(5),FUNCTN(5) = 6 


DATA FUNCTN/’ Па), ай», 

/ " Өту,” ау КОЁ(т)'/ 
PI = 3. 1415926 | 
ОРЕМ(1.ЕП,Е = ' *,STATUS = 'OLD') 
OPEN¿(6,FILE = ' *,STATUS = ЧЕЗ?) 
OPEN¿(11.FILE = 'KR3',STATUS = "МЕМ 
OPEN(12.FILE = *А©',5ТАТО5 = МЕМ?) 
OPEN(13 .FILE = ‘GIR',STATUS == *NEW") 
ОРЕМ. ЕЕ = "G2R’, STATUS = *'NEW” 
OPEN' LS FILE = 'RDF',STATUS = "МЕМ 
REAIDri =) INFMAT 
WRITE * , * ) 1МЕМАТ 
ҮКІТЕ(6. +) INFMAT 


ЖЕТТЕС» .ХІБХ,"ж ж. INPUT DATA < = 29,755) 
WRITE(6,"(16KX,”* ж. INÉUT DATA ж» ж", /)') 
READ¿(1., + У NELMT, ELEMTI(I} ,ZI = 1,NELMT) 


WRITE( + ,10) NELMT, (ELEMTID ,1 = 1.NELMT) 
WRITE(6.10) NELMT, (ELEMT(1) ,1 = 1,NELMT) 
FORMAT ( NO. OF ELEMENTS = ',11,5X, 

/ ELEMENT = ',5(А2,',',2Х)) 
WRITE( < ,20) (Z0),I = 1,NELMT) 
WRITE(6.20y (72(1),1 = 1,NELMT) 
FORMAT(31X. Z = *,5(F4,0,',!3 
WRITEC + ,30) 

WRITE(6,30) 
FORMAT (/' PARAMETERS OF THE ATOMIC ' 

/ SCATTERING FACTOR, °) 
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DG 401 = 1,МЕІМТ 
READ(1, +) (CF(J,1),J] = 1,92 
WRITE( ,503 Е,ЕМТОО.(СЕС,О»1 = 1,9) 
40 МБІТЕ(6,50) ELEMT ID ,(CFC ,TI 一 19) 
50 ЕОКМАТ(З3Х.А2,7; '.5(F8.5, 1X),/; 
/ 7Х,4(Ғ8.5,1,7,1Х)9 
WRITE < ,60) 
WRITE(6.60) 
60 FORMAT PARAMETERS OF THE СОМРТОМ' 
/ ,' SCATTERING INTENSITY ,?) 
DO 70 = IL,NELMT 
ВЕАЮ(1, * >) (ОП (],1),] = 1,4) 
WRITE¿ ,80) ELEMTII CINGO ,DJ 一 1.4) 
70 WRITE¿:6,80) ELEMT (1), (CINOU,D,] = 1,4) 
#9 FORMAT(3X,A2, : ,4(Ғ9.4, )) 
READ(1, є у (CELMT(1),1 = 1,NELMT) 
WRITE + ,90) (Е,ЕМТ(І»,СЕ,МТАЗ.,1 = 1,NELMT) 
WRITE(6.90) (ELEMT (1) ,CELMT(1).I = 1, NELMT) 
90 FORMAT¿/,' THE ATOMIC PERCENTAGE, ,, 
/ 46А2,1,Е6.3,,.3Х99 
READ(1, ж) AVDENT.THCKMU 
WRITE‘ + ,1003 AVDENT ,THCKMU 
WRITE6 ,1001 AVDENT,THCKMU 
100 FORMAT THE AVERAGE ATOMIC DENSITY = °',F9. 6/ 
7 ABSORPTION COEFFICIENT » THICKNESS = ",Е6. 2) 
ӘЕАрО(1.» > ALAMDA .B.C.ALPHA 
WRETE¿ ,1103 ALAMDA ,B.,C ALPHA 
WRITE¿(6.,110) ALAMDA,B,C, ALPHA 
110 FORMATO WAVE LENGTH OF X — RAY = *,F6.4,3X. MO”, 
ANOCHROMATOR CONSTANT = *,F6.4/' LIGHT PATH ', 
PCONSTANT = '*,F4.1,5X.'DUMPING FACTOR = *,Еб, D) 
WRITE( x ,120) RG1.RG2 
WRITE(6.1205 RG1,RG2 
120 FORMAT('RG1 = '.F6.3,19X RG2 = *,Е6. 3) 
READ] ‚ * ) NQ ,DQ 
READ(1, #) (ҰЯ), = 1,NQ) 
WRITE» ,0/,16Х,8ө ++ OUTPUT DATA + є *"”)”) 
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130 


140 
150 


/ 


160 


170 
180 


ХҮКІТЕ(6,%/,16Х,%«“» OUTPUT DATA ж ж x ™)9 
DO 130 I = 1,NQ 
X(D = DQ + FLOAT (I — 1) 
QQ = 4, x PI/ALAMDA 
DO 160 I = 1, NQ 
SINTHE = X(1)/QQ | 
IF(THCKMU. GE. 3. OR. SINTHE. LT. 1. E — 45GOTO 140 
A = 1. — ЕХР(2. x THCKMU/SINTHE) 
GO TO 150 
А-1.0 
Р = (1.0 В» (1.0 — 4,0«5ІМТНЕ» + 2 
к (1. 0 — SINTHE ж * 2)))/(1.0 +C) 
Ү( = Ү(О/А/Р 
WRITE(6,170)NQ,DQ,X(1),X(NQ),FUNCTN(1) 
WRITE(6,180)(Y(D ,I = 1,NQ) 
ЕОВМАТ(1Х,15,3Ғ10. 4,3Х,А6) 
FORMAT(8(CF9. 4)) 
WRITE(11,170) МО 


МЕТЕ (11,190) (X,Y @),1 = 1,NQ) 


199 


290 


/ 


219 


БОВМАТ(4(Е7,3,Ғ12, 4099 
CALL ҒІ2(МО,МЕІМТ,СЕІМ7Т,2,СЕ.СІМ,ЕАУВ2,Е2АУСІЗ 
Q1 = 0. 
Q2 = 0. 
БО 200 I = 2,NQ 
X10 = А(І — 1) + * 2 
X20 = X(]) =» * 2 
Х3--Х10» ЕХР(- ALPHA * X103y/FAVR2(I — 1) 
X2 = Х20»ЕХР(- ALPHA = Х203/ҒАУЕ?(1) 
Q1 = Q1 + (XM — X(I— 1) (ҮС- 1) + X1 + Y(I) x X2) 
Q2 = Q2 + (ХО) — X(I — 1)) * (F2ƏAYCI(I — 1) + X1 
+ F2AVCI(1) + X29) 
BETA = (02-4. + P] x Pil x AVDENT)/Q1 
WRITEC* ,210) ВЕТА 
WRITE(6,210> BETA 
FORMAT(/' STANDARDIZED FACTOR, BETA = ',F8. 4) 


DO 220[ = 1,NQ 


220 
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Ү(1) = (Y (D) + BETA — Е2АУСЦО»/ҒАУК2ЯА) + 1. 
IF(YG(D.LE.1.E — 5) YU = 0.0 


230 
240 


250 


260 


WRITE(6,170) NQ,DQ,X(1),X (NQ), FUNCTN(2) 

WRITE¿(6,180) (Y (1),1 = 1,NQ) 

МОА = 11. 0/DQ 

WRITE(12,170) МОА 

WRITE(12,190) (X (D,Y (D,1 = 1,NQA) 

NQP = 1 

DO 2301 = 1,NQ 

IF (X(NQPY. СТ. 20.) GO TO 240 

IF CY (NQP).LT. 0.) ҮСЧОР) = 0. 

NQP = NQP + 1 

МОР = МР — 1 

WRITE( * 227 WAITTING ... ’’}’) 

DO 250 1 = 1,NQP 

ЕХРАО? = ЕХР(- ALPHA x X (I) < * 2) 

Y(D = X (1) x (ҮП) — L ) + EXPAQ2 

IF(NQP /2 < 2. МЕ. МОР) Y (NQP + 1) = 0. 

N = (NQF + 12/2 

DO 2601-1,М 

YR(D = Y(2*I— 1) 

YID = Ү(2+1) 

DO 270 1 = N + 1,2048 

YR(D = 0. 

YKD = 0. 

DK =.15335Е 一 2 

DR = DK/DQ 

CALL FFT(YR.Y1.2048,11. — 1) 

SNO = SIN(DK) 

CN0 = COS(DK) 

SN = 0. 

CN = 1. 

DO 2801 = 1,2048 

Хау = DR x (1 — 1) 

ЕХО. GT, 15.2 СО TO 290 

J = МОГИ(2049-- 1›,2048) + 1 

YD = (YKD — YIU) + (YRU) ~ YR(1)} * CN 
— (YID + ҮКІ») + SN) + DQ/PI 

EE = SN 

SN = SN * СМО + СМ + SNO 
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280 
290 


309 


319 


320 


330 


343 


360 


186 


CN = СМ + СМО — EE + SNO 

МВ = 1-1 

WRITE(6,170ONR ,DR,X(1),X5(NR),FUNCTN(3) 
УКІТЕ(6,1800(Ү(І0,1- 1NR} 

МК1 = 1. 0/DR 

DY1 = Y(NR1)/FLOAT(NRI — 1) 

DO 3001 = 1,NR1 

YD) = DY! * FLOAT(I — 1) 

DO 310 I = NR1 + 1,NR 

YotD = ҮС) 

WRITE(13,170 NR 

WR1TE(13,190)y (X<(D,Y0(D ,1= 1,МК) 
FACTDN == 4. * PI x AVDENT 

DO 320 I = 2,NR 

ҮС) = Y(D/FACTDN/X(D + L 
WRITE(6.170)NR ,DR.X(1),X(NR),FUNCTN(4) 
WRITE 6.180) YD .1 = 1.NR) 

DY1 = Y(NRI)/FLOAT(NR1 — 1) 

DO 330 I = 1,NRI 

Y04D = DYt + FLOAT(I — 1) 

DO 340 I = NER I + 1.NËB 

YolD = Y(!) 

WRITE(LL4.1707NR 

МЕТЕ (14.1900, YOU ,I = 1,NR) 
WRITEt(6,170)NR,DR,X(1.X(NR),FUNCTN65) 
DO 350 I = L.NR 

YOD = FACTDN x YU} «ХІУ < 2 
WRITE(6,180) CYOD ,I = 1.NR) 

DY1 = YI(NRIY/FLOATNR] ~ 1) 

DO 360 [ = 1.NK] 

Y0(D = DY1 x FLOAT(I -- 1) 
WRITE(15,170NR 
WRITE(15,190 (X0), ҮО1),1 = L NR) 
N=1 | 
DO 370 1 = 1.NR 

IF(X(D, LT. ЕСІ» GO ТО 370 

IF(X(1). GT. ЕС?) GO ТО 380 

X(N) = X(1) 


370 
' 380 
390 


400 


40 


420 


430 


440 


450 


Y(N) = ҮС 
N=N+1 
CONTINUE 
NR=N-—1 
MM = INT((X(NR) — X(1)) + 100. > + i 
YY = — 100000. 
рО 4001 = 1,ММ 
XP = X(1) + (I — 1) * . 01 
CALL LGINT(NR ,4,X,Y XP ,YP) 
IF{YP. LE. YY) GO ТО 400 
YY = YP 
RP = XP 
CONTINUE 
YY = YY/2. 
MM = MM/2 
DO 410 I = 1.ММ 
Xi = ХО) + (I — 1) + .01 
X2= RP + (I — 12 ж. 0] 
CALL LGINT(NR.4,X,Y.X1,Y1) 
CALL ІСІМТ(МЕ,4,Х,Ү,Х2.Ү2) 
ТЕ СҮ1.ЬЕ. ҮҮ) XA = ХІ 
IF(Y2. GE. YY) XB = Х2 
HW = ХВ — ХА 
IF (FACTDN. EQ. 0. > GO TO 440 
WRITE: + ,420) RP, HW 
ЧЕПТЕ (6,420) RP, HW 
FORMAT(/* THE FIRST РЕАК OF g(r};", 
i rP = '.Е6. 3.4Х.'НАІЕ WIDTH = *.Е6. 3) 
ГО 4301 = 1,NR 
Y(1) = FACTDN x ҮСУ ХС) * #2 
FACTDN = 0. 


_ GO TO 390 


M = INT((RP — Х(192/.01--.29 
CN = Y(L) * .01 

DO 4501 = 1,M 

X1 = ХІ) +.01*1 

CALL LGINT(NR,4,X,Y,X1,Y1)2 
CN = CN + Y1 * . 02 
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460 


19 


20 


30 


CN = СМ — Y1x.01 

WRITE( » ,460) RP,HW,CN 

WRITE¿(6,460) RP, HW ,CN 

FORMAT(* THE FIRST PEAK ОЕ RDF(r),' 


/+ rP =',F6.3,4X,/ HALF WIDTH = ",Ев.3 
/ ./28Х, COODINATION NUMBER = *,Еб6. 3) 


/ 


/ 
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5ТОР 
END 
SUBROUTINE F12(NQ ,NELMT,CELMT, 

Z,CF,CIN,FAVR2,F2AVCI) 

DIMENSION CELMT (5),245),СЕ(9,5), 

CIN (4,5), FAVR2(600),F2AVCI(600) 
COMMON Р1,Х(600),Ү (6002 
DO 30 K = 1,NQ 


FAVR2(K) = 0, 
F2AVCI(K) = 0. 
А} = 0. 


ХІ = ХК) + +2404, + PDC. ж«РІ) 
DO 20 I = І.МЕІМТ 
F = СЕ(9,1) 
DO 10]Ј= 1,4 
ҒЕ-Е-ҒСҒ(2»1-- 1,1) +*EXP(— СЕ(2» 1,09% X1) 
FAVR2(K5) = ҒАУЕ (ҰҚ) + CELMT(I) + Е 
F2AVCI(K) = Е2?АУСЦК) + CELMT(ID =F x F 
CI= 1. + CIN(1,D = X1 + СІМ(2,1) = K1 x X1 
CI = 241) ж (1.0 — CU/01.0 + СІМ(3,10» ХІ 
+ CIN(G(4,) «ХІ» ХІ)» * 2) 

А = AL + CELMT(I) «СІ 
FAVR2(K) = ЕАМЕ2(К) + ж 2 
ҒЕ?АУСІЫҚ») = Ғ2РАУСГТК») + АІ 
RETURN 
EHD 

SUBROUTINE БЕТ(ЕЕ,ЕІ,М,К,МЕ) 
DIMENSION FR(NY. FIN) 


МК = 0 

ММ =N -—1 

DO 20 M = 1,ММ 
L =N 


10 


20 


30 


40 


L = L /2 
IF (MR + L. GT. NN) GO TO 10 
MR = MOD (MR, ,L)5 + L 
IF (MR. LE. M) GO ТО 20 
TR = FR(M + 1) 
FR(M + 1) = FR(MR + 1? 
FR(MR + 1) = TR 
TI= ЕМ + 1) 
КҮМ + D = FI(MR + 1) 
FICMR + 1> = TI 
CONTINUE 
= 1 
ЕСТ. СЕ. МУ RETURN 
[S = 2 * L. 
Al = 3. 1415926 + NF /REAL(L) 
WRü0 = COS(A1) 
Wio = 51М(А1› 
WR = WRO 
WI = WIC 
DO 40 M = 1.1. 
Во = WR 
WR = Bo МЕО + WI < WIO 
WI = WI + WRG— Во + Wio 
DO 401-- М,М,15 
J=I+L 
TR = WR *FR¿J) 一 W1 * FI> 
ТІ- WR + FI(J) + WIl* ЕКС 
FR = FR(D — ТЕ 
Е‹]) = Flil) — TI 
ЕК) = FR(I + TR 
Ға» = ЕКО + TI 
І. = 18 
GO TO 30 
END 
SUBROUTINE LGINT(N,MM.X,Y.XL, YD 
DIMENSION X(N), ҮСУ) 
М = MM + MOD(MM,2) 
IF(M.GE. МУМ = N — MOD(N,2) 
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M1 = M/2 + 2 


NL = 1 
ІК(ХІ. LT.X(M1 — 15 GO TO 30 
M2 = N — М/2 


NL. = N-— M+1 
IF(XI.GE. X(M2))5 GO TO 30 
DO 10 L = MI ,M2 
10 IF((XI.LT.X(L)). AND. (XL. GE. XL — 1))2 GO TO 20 
20 NL = L — М/2 
30 NH=NL +M —1 
ҮІ = 0. 
DO 501 = МІ,,МН 
ҮП =L. 
ҮІ2 = 1, 
DO 40 J = NL ,NH 
IF (J. EQ. D GO TO 40 
ҮП = YII # (XI — XJ») 
ҮЇ2= YI2 * (X (D — X (J)? 
46 CONTINUE 
50 YI = YI + YD + ҮП /ҮІ2 
RETURN 
END 


52.3 ”液态 金属 和 合金 结构 的 描述 


液态 金属 结构 的 描述 方法 与 $ 2.2 所 讨论 的 非 晶 金 属 一 样 ， 
亦 是 用 结构 因数 a (q) 和 径 回 分 布 国 数 RDF 表征 . 


2.3.1 ”简单 滤 态 金属 结构 的 描述 


用 一 些 直 径 为 o 的 硬 球 无 规 密 堆 集 来 模拟 简单 液态 金属 的 离 
子 排列 情况 .这 种 模型 的 侦 势 为 
U(r) = зе жаңа (2- 112) 
0 r > g 
此 模型 对 有 效 短程 斥 力 相 互 作用 给 出 了 第 一 个 有 用 的 近似 式 . 在 
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液态 状态 下 ,有 效 短 程 斥 力 相 互 作 用 决 让 了 粒子 的 几何 维 集 状况 . 
对 于 纯 金 属 液 体 ,联系 分 布 函 数 与 偶 势 的 Percus 一 Yevick 积 

分 方程 为 
Со) = (e t r 一 уез g (r) (2 — 113) 
ай), 为 玻 尔 效 曼 常数 ,Pr) Ж; дог) ARN Я сг) 5 
直接 关联 函数 . 如 以 о 表示 硬 球 直 径 , 此 硬 球 模型 的 直接 关联 淫 数 
在 * 氢 5 时 可 用 一 个 > 的 多 项 式 来 表示 ,而 在 > >> о W WF 0, BD 


7 r 
~a- Dni r< | 
co -| i құ) о 87 《2 一 114) 
0 r > G 
_ (I + 27) 
式 中 系数 a= уту түр 
бї + 2) 
= сори" (2 — 115) 
_ 1(1 + 27) 
(1 — 77 
4 ,4.,; _ 1 3 
其 中 ? = 162) / = goro (2 — 116) 


7 称 为 堆 集 密度 参数 , 它 是 表征 原子 硬 球 所 占 体 积 与 液体 中 平均 
每 原子 所 占 体积 人 之 比 .对 于 液体 有 上 典型 值 了 = 0. 45:n 为 液体 的 
原子 数 密度 ,n = р. 
将 (2 一 114) 式 取 侍 里 叶 变 换 , 得 到 动量 空间 的 关联 洱 数 : 
ы же (ла) | даза + Вх 十 Ух?) эдет) 
= — 94700107 + BV + YW)/n (2 — 117) 
U 一 [sinfoc) — qacos(go))/ (40) 
V = (2gosin(qa) — (а?а? 一 2)соѕ (40) 一 231/ (40) 
> = ((4q'a' — 24g0)sin( go) 
— (qti — 124105 + 24)сов (о) 十 243/ (gay 
(2 — 118) 
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解 卫 一 立方 程 后 ,结构 因数 ua(d) 由 下 式 给 出 : 


a. l _ Е 
aD — Ti (2—119) 


当 g 王 0( 长 波 限 ) 时 : 
at= (1—7)!/(I1+27'= k TnB, (2—120) 
AH Bi 为 被 态 等 温 压 缩 率 . 
从 (2 一 115) 至 (2 一 118) 式 可 知 , 只 要 确定 了 两 个 盆 数 ; 硬 球 直 
í с 和 堆 集 密度 参数 7, 怠 可算 得 液态 金属 的 结构 因数 a hH. 
为 了 计算 液体 在 不 同 温度 的 结构 因数 a(T,q) 曲 线 , 我 们 又 引入 一 
个 表征 堆 集 密度 随 温 庶 奏 减 的 指数 参数 v. 具体 计算 方法 如 下 : 注 
意 到 实验 已 测 得 许多 液体 的 密度 D 与 温度 的 关系 常常 表示 为 经 
验 公式 
D(T)=D,+D (T'—T.) (2—121) 
AP D. 是 在 熔点 工 。 HER. D 是 密度 的 温度 系数 . 一 般 说 来 , 液 
态 金 属 订 的 值 很 小 (一 10-4), 故 可 将 (2 一 121) 式 变换 为 指数 形 
ты; | 
DT) =D.exp (D (т-ту) (2— 129) 
此 处 D. M 号 " 缘 可 从 实验 数据 中 得 到 . 如 将 质量 密度 D 换 成 原子 
ЖЕ ns n, 和 5T) 分 别 表示 在 熔点 和 在 任意 狂 度 工 的 原子 
数 密度 , 则 代替 (2 一 122) 式 的 是 
n(T)=nexp (T —=Ta)) (2— 123) 
温度 升 高 时 ,液体 密度 变 小 ,其 堆 集 密度 参数 也 变 小 , 类 似 于 
(2 一 122) 和 (2 一 123) 式 ,可 设 
7СГ)-т-),ехр(»<7-- Te )) (2—124) 
比 处 的 就 是 新 引入 的 堆 集 密度 衰减 因子 ,将 (2 一 123)7 和 (2 一 


124) 式 代入 到 (2 一 116) ,得 
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” 
D yT —T.) (2—125) 


а Z 
oT) -чамехрС-; (у D. 


AP c. = (Eyi 

得 到 ТУЖ zr(T) 后 ,利用 (2 一 117? 至 (2 一 119)? 诸 式 ,就 可 计 
算 温 度 人 的 结构 因数 a (q) Т. 

图 2-12 给 出 了 用 按 上 述 公 式 编制 的 程序 2— 4LQMSTF Ў 


算 的 在 天 个 温度 液态 钠 的 结构 因数 曲线 ,相应 的 实验 点 也 一 并 画 
н. 


а 550°C 


图 2-12 液态 金属 钠 的 结构 因数 . 
一 一 ”计算 值 
* KBÜ 


23.2 ”液态 二 元 合金 结构 的 描述 
液态 二 元 合金 的 结构 ;通常 用 偏 结 构 因 数 S. S; fl 5.2180. 
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与 纯 金 属 液 体 的 (2 一 113? 式 相应 ,对 于 二 元 混合 液态 合金 ,Percus 
一 Yevick 方程 由 下 式 给 出 : 
суб) = Се WO” П] o (ғ), 1,7 W 1 2 
(2-—126) 

式 中 , 0; (r) 1 sguir) 3 E ZY Т е Кс (r) A A B. ЭСЕК РА 
数 . 偏 结构 因 数 S5 с СОВИ РА с (q) 925. 

液态 二 元 合金 可 看 成 两 类 直径 不 同 的 硬 球 混 台 做 堆积 而 成 . 
ЖЫ сс, 表示 第 一 .二 两 类 硬 球 的 直径 , 力 . 访 表示 它们 的 情 堆 
ЕВЗ Ш o,>>o1, 且 进一步 定义 


= 为 大 球 的 硬 球 比 。 СОА) 
2-2-8. DARRE e e. 

7 一 外 十 六 一 硬 球 占据 体积 / 益 体 积 ,为 总 堆 集 密度 参数 ， 
П-(1--:20,--х0, 为 半 均 原子 体积 ， 


mna? 
==. 
Ж н.о 代入 ,有 
__ 01—204? __ 27) __ 
Th h UTTO zh е 


НЕВЕ @ ЭС ЮЙ YE A {В. 21] (2-- 126) х\, И ЙЛ 


--си&7) =а, ++" к< ад, 
—¿c (r) а БЫ? r< 
"u reg ma) (2—128) 
к a+ ФЗ 40 АК) /т, 2-00.) aHa) 
31072 == — cukr) 
式 中 R= 一方 (01 一 9) A= oo) | (2 一 129) 
系数 aabb fü d EAA z РА, ЕТЕ: 
а= (Ве), аа (2— 130) 
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AF Во 称 为 约 化 鸭 数 ,其 表达 式 为 
PP = {Ст hp, (1 十 7 和 十字) — Зь (1— А) 1+9 БАС + 
JANYA)? (2--131) 
又 引入 下 列国 数 : 


ап=Са+- +3 —1)/2)(1—) 2 


ва = СО) H A 1 一 1)/2](1 一 7) * 


g= Са) За Ауа А) haa 
(2 一 132) 


am 
ұл 


В, = о. 60р САА ГА) 
В, = 9,0, = — 6-1 а +h) д1/47] 
gh = BALL TA ру А 2222012 
7 =id= (may+-h'iha,)/2 

令 y= qo :有 yi 二 go 二 hy ,对 (2 一 128) 式 作 傅 里 叶 变 换 , 得 


(2--133) 


-men = th {aCsinhy — Аусовћу) 
+ 3, СОлувіплу- (h*yt— 2)coshy— 22/Ау 
+У, ССА? y — Ahy sinhy— (hy — 121 y 
+24)coshy t 24)/Chy}} (2— 134) 
H ERIE: qq hy ys BiB: 和 为 一 "7, 就 可 得 出 一 
ecn Су), 
同 理 可 得 ; 
— n! 12. (Ку):=3(1—)%уауд!'%(1—т)!' (епу — cosy) * 
[六 十 11 rh yi H 249 (1 АСЕ (1 к) 
АЈ. {вїпу,С бу; (2y,cosyi + <y 2) пу) + уг. 
((3y!— 6) соѕу, + (у! — бу }зіпу + 6)-Е7,у ° (0431 — 
24у, )соѕу + (xí *— 12у{ + 24} зіпу )] у, ° + созу Lp 
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(2ysiny — (у — 2)сову,-2)-Ғ Тал! ((3yI— 6) іпу — 
(yl — бу )соѕу,) РУ уг! (<4уі — 24у )зіпу — (Í — 12у 
+ 24)сову, +24)2у!+-а уг Ссоѕу Суг? isinyi — усозу, } 
+I — А) (22) ‘у! (1 — cosy) + siny; Суу (созу, + 
yisinyy —])+<(1—A) <24) уг!зіпу,)2)} (2—135) 
AP y= (1—Һ)у/2,7„=27,(1—)/^ 
Въ = с10== -- ЗА (1А) (А hgn н) 
根据 直接 关联 函数 с СЕ У, А8 1] Achcroft-Langreth 


Е 
1 一 myC 

< = bm ________ 

5169 Cl— nien yI CI — neca y)) — nnac 

| 1 пус 
ç =s L= z ыы ы = >з UU DPI _ - U G: мы 20 
ау) (йн УУЛ теу) иа, S =“ 
5 (= (лл, ) сы, 


[l мси СУЗІСІ-лұса (у) — плс, 

对 于 单一 组 分 的 液体 , h = L, = + Ж HK ñ Y Сп = cz = cy: + ЖЖ 5 
(у›=т5(у)-+2(ж(1—)])''®5\,,(мэ)-+(1—ж05,(у)5 = 1536, 
约 化 为 


— i - _ 
PE теу (2—137) 


与 (2 一 119) 式 完全 一 样 .值得 注意 的 是 ,上 述 S, (y) xf сууйу 
示 式 (2 一 136) 是 普遍 的 , 同 P 一 Y 近似 和 硬 球 近 似 无 关 . 

图 2-13 给 出 了 用 按 上 述 公 式 编制 的 程序 2 一 5LBASTEF 计算 
的 在 100 它 时 液态 二 元 合金 Na-K 的 偏 结 构 因 数 Suns Ske AI 
Snes W. K 的 原子 浓度 为 304 ,计算 时 取 的 表征 Na ЖІК 离子 的 
便 球 的 直径 6, 堆 集 密度 参数 让 分 别 是 3.37 和 A ,0. 27 il 4.11, 
0. 21. 
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1,0 
5:2 
1.0 
0,9 
1,0 КЕТКЕ у ЖЕСЕ 
0. 0 2.0 4. 0 6.0 8, 0 


А7!) 


[12-13 液态 合金 Na-K 的 偏 结 构 因 数 .533 和 5;; 


程序 2-4 ”液态 金属 结构 因数 的 计算 


,程序 名 ;LQMSTF 


二 ,功能 


输入 描述 在 熔点 时 液态 金属 结构 的 硬 球 直径 o, 和 堆 集 密度 
参数 7., 以 及 表征 堆 集 密度 参数 随 温 度 改 变 的 指数 衰减 因子 v, 计 
算 在 各 个 温度 时 液态 金属 的 结构 因数 аа). 


三 ,原理 


1. 表征 液态 金属 在 熔点 处 的 原子 数 密度 温度 关系 的 参数 D. 
和 D” 可 从 质量 密度 的 温度 关系 的 实验 公式 得 到 ， 
2. 输入 Ds。,D' 和 熔点 的 模型 参数 Onon 以 及 衰减 因子 v 的 数 
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值 , 按 (2 一 125) 和 (2 一 124) 式 ;就 可 计算 所 给 温度 荆 的 ol(#) 与 7 
СТГ). 然后 按 (2 一 117) 至 (2 一 119) 诸 式 计算 温度 工时 的 结构 因数 
alq) ЖЖ. 


五 .变量 说 明 


x 为 输入 变量 ;十 为 输出 变量 

SIGMAM" ;熔点 时 的 硬 球 直 径 ce ,单位 ;A 

ETAM” :熔点 时 的 堆 集 密度 参数 т. 

ANU” ; 堆 集 密谋 参数 的 温 诬 衰减 指数 v. 

DM” ,熔点 时 的 密度 D,, 单 位 : 克 /cm’, 

DP" :密度 的 温度 衰减 指数 D”. 

TM* :熔点 Ta 单位 :摄氏 度 ， 

МИ ТНК АЖ. 

ТО)" :1=1,М№Т. 第 I 个 温度 . 单位; 摄氏度 . 

NQ `" :在 每 个 温度 计算 结构 因数 的 波 拓 总数 . 

QG)” :JJ=1,NQ, 第 了 个 波 矢 值 . 单位 ;和 A 

КТА (127 ,1=1,№Т. 在 第 1 个 温 讶 计算 的 堆 集 密度 参数 ТСТ). 

SIGMA(D ,1=1, МТ. 在 第 I 个 温度 计算 的 硬 球 直 答 olT,), 单 
位 :人 及， 

OMEGA (1)- :I=1NT, 在 第 I 个 温度 计算 的 每 原子 体积 . 单位 ， 
À °. 

AQ(1,J) ;1=1,NT,J=1,NQ ,计算 的 在 温度 ТЫЯ di 的 结构 
因数 аСТ,а;). 


六 ,计算 实例 
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计算 并 输出 此 NT 个 温度 时 的 矿 球 
Afta (Tyán H ЕРСІ) 


ПИЕТЕ, бо Ну аСТ оо) 


对 于 每 个 温度 ， 输 出 各 个 波 舌 的 结构 因数 


[ 结 Ж | 
流程 图 2 一 4 . 


0.5 至 6.6A ! 的 结构 因数 ,运算 结果 示 于 图 2-12. 
本 程序 运行 时 ,采用 预先 制备 的 LQMSTF。，DAT ЖЕУ 
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件 作 输 入 文件 ,数据 以 自由 格式 读 和 人 , 运行 所 得 结果 除 在 屏幕 上 显 
示 外 ,还 生成 一 个 如 OUT 的 输出 文件 贮 看 结果 备查 . 此 外 ,还 自 
动 生成 一 个 输出 数据 文件 LQDATA( 见 程序 7-1 ЕЕЕ ЕР 
图 用 . 绘图 程序 参见 程序 7 一 1 PLTCV1 和 和 程序 7-2 PLTCV2， 
运行 指令 ,LQMSTF LQMSTF * БАТ OUT 
七 、 输 出 文件 : LQDATA (以 计算 液态 金属 钠 的 结构 因 
数 为 例 ). 


56 

.50 .028 1.034 2041 3.052 4,061 
.80 .040 1.048 2.057 3.074 4.086 
1.10 .069 1.083 2.099 3.196 4.146 
1.20 .088 1.105 2.126 3.160 4.184 
1.40 2158 1.190 2.226 3.281 4.319 
1.50 .230 1.274 2,322 3.395 4.442 
1.60 .352 `1.415 2.481 3.575 4.632 
1.65 .447 1.522 2598 3,702 4.761 
1.70 .577 1.666 2752 3.861 4.917 
1.75 .758 1.860 2,952 4.054 5.100 
1.80 1.010 2.117 3.203 4.280 5.304 
1. 85 1. 35] 2. 444 3.500 4. 523 5. 512 
1.90 1.781 2.819 3.811 4.751 5.697 
1.95 27,239 3.172 4,074 4.921 5.826 
2,00 2.579 3.393 4.216 4.596 5.878 
2,05 2.651 3.406 4.201 4,968 5. 850 
2.10 2.456 3.236 4.058 4.861 5.760 
2.15 2.128 2.975 3.850 4.709 5.636 
2.20 1.791 2.705 3.631 4.545 5.499 
2.25 1.504 2.466 3.432 4.300 5.366 
2.30 1.276 2.269 3.262 4.252 ` 5.246 
2.35 1.100 2.113 3.123 4.135 5.141 
2.45 2865 1.895 2.923 3.958 4.978 
2.60 .644 1.720 2.755 3.800 4.827 
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139 
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‚518 
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= ы? = = = 
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ма 
业 
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, 688 
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. 641 
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643 
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264 
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947 
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‚933 
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2. 723 
2. 699 
2. 674 
2. 671 
2. 674 
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2. 695 
2. 735 
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2. 967 
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3. 129 
3.058 
2. 994 
2.901 


2.9576 
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2.879 
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3. 052 
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3. 052 
2. 992 
2, 946 
2. 928 


* 
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. 720 


731 


‚ 765 


816 


. 860 
. 119 
. 178 


208 


, 205 
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30 


40 


90 


89 


八 . 源 程序 :LQMSTF БОК. 


/ 


PROGRAM LQMSTF 

DIMENSION T(6) ,DT(6) ,ETA(6),SIGMA 6) 
DIMENSION (0<560),А056.60» 
CHARACTER INFMAT * 80 
OPEN (1 ,FILE=" ',STATUS=”"OLD') 
ОРЕМ(6,ҒП.Ға-? *,STATUS=°NEW') 
ОРЕМЯО,ҒКИ,Е--",ОрАТА?,5ТАТ05--"МЕУУ?) 
RFAD(1, + ) ІМЕМАТ 
WRITE(* , +} INFMAT 
WRITE(6, «ЭТМЕМАТ 
READ(1, + > SIGMAM ETAM, ANU 
WRITE * ,10) SIGMAM .ETAM ,ANU 
WRITE(6, 10) SIGMAM ,ETAM ,ANU 
FORMAT С SIGMAM -ғ",,Е5.3.” ETAM =’, 

F5.3,7X,'ANU =°*,E11. 3) 
READ(1, + У DM ,DP .TM 
МЕТЕ < ,20) DM ,DP , TM 
WRITE(6,20) DM ,DP ,TM 
FORMAT(1X,'DM =”,F7.4,4X,'DP =°, 


М Е11. 4,3X, TM = * F7. 2) 
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READ(1, + > МТ, МО 

МЕГГЕ С » ,30) МТ,МӘ 

УЕІТЕ (6.30) МТ,МО 
FORMATO ЫТ =*,[2,9X NG =°,13) 
REAL (1, + ) (TUT), IT=1,NT) 
МЕТЕ + ДОХТТ»,ІТ--1,МТ) 
WRITE(6,40){T(IT)}.IT=1,NT)}) 
FORMAT(1X,’'T = ,5ХЕ7.1,2Х2) 
READ(1, +) (Q(I),1=1,NQ) 

DO 50 IT=1,NT 
DT(TT)=T(IT)—TM 

WRITE( * ,60) 

WRITE(6,60) 


ҒОКҚКМАТ(/4Х.77",9Х "ЕТА", 5Х,'5ІСМА", 5Х , "ОМЕСА”) 


ЕТА ОТ) =ЕТАМ *EXP(ANU * DT(IT)) 

SIGMA(IT)=SIGMAM + EXP((ANU— DP/DMY # DT(1T)/3. 0) 

OMEGA=3. 14159265 * SIGMA (ITY * *3/(6.0* ETA(IT)) 

WRITE( * ,800Т(ТТ›,ЕТАПТ),51СМА(‹(ТТ›),ОМЕСА 

УЕІТЕ(6,ВОУТОТО-ЕТАСТ»,СІСМАЧСТТ).ОМЕСА 
70 CONTINUE 
88 FORMAT(1X,F7.1,3X,2(F7.4,2X).,F8., 3) 

F=0.0 

ГО 100 IT=1,NT 

ЕТАР-ЕТАЯТ) 

SIGMAP= SIGMA (Т) 

El=(1.0—ETAP) * * 4 

Е2=(1.0+2.0* ЕТАР? + + 2 

Е= ЕТАР + 0. 5 

ALPHA =Е2/Е1 

ВЕТА = — 6.0 * ЕТАР * (1. 0+Е? * * 2/61 

САМА = Е # ALPHA 

DO 90 IQ=1,NQ 

Y=Q(IQ) * SIGMAP 

Vo=Y x «2 

Y3=Y * *3 

Y4=Y + +4 

S=SIN(Y} 

C=COS(YY. 

РТІ-АҺРНА + (S—Y * С) 

PT2=BETA x (2, 0* Y + 5-- (Y2—2, 0) *C—2. 0) /Y 

PT3=GAMA + (54,0% Y3—24, 0 * Y) * $— 

/ (Ү4-12.0» Y2+ 24.05 + C+ 24. 02/ ҮЗ 

CN= —24.0* ETA(IT)* (PTI+PT2-+PT3)/Y3 
90 AQ(IT,1Q)=1.0/(1.0-- CGN) 
100 CONTINUE 

WRITE‘ * ,110) 

WRITE(6,110》 
110 ҒБОВМАТ(/Х,14Х,.0,7Х ҒАОСТІР,4Х, 

РВАООТОУ,АХ,АО(Т3УЬ4Х-АЯКТАУ-АХ,АОСТ5УУ 

ГО 120 1=1,NQ 

ҰЕІТЕС» ,1302,0(1»., AQ (IT, IT=1,NT) 

WRITE(6,130)1,Q (D ,.(AQ(IT,D IT= I, ,NT) 
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120 CONTINUE 
130 ЕБОКМАТ(1Х,12,Е7.2,5Х,5(Ғ6. 3,4) > 
УКІТЕ(10,51Х,15)2 МО 
DO 159 I=1,NQ 
DO 140 IT=1,NT 
140 АСОСТ.Ю-АОЯОТ,О-Б1.0У ЕІОАТ(ТТ--1) 
150 WRITE(10,160)/1Q 00), САӨЯТТ,>.1Т-1,МТ» 
180 ЕБОВМАТ(1Х,Ғ5.2.6(2Х,Е6. 39) 
CLOSE СӨ? 
CLOSE(10) 
STOP 
END 


程序 2-5 ”液态 二 元 合金 偏 结构 因数 的 计算 


一 ,程序 名 ;LBASTF 


二 ,功能 


输入 描述 该 态 二 元 人 台 金 结构 的 参数 ;两 种 硬 球 的 直径 4o 和 
Jg» a g Lar) AH R E FF GR 和 зр), ЕНІ а В (x = 


n, Сағ” ЭИ ЯМ ЕЛЕ ЖК Sa Ca) Sal Si: (Q). 


三 ,原理 


利用 输入 的 参数 2, 0.7; , f RI ж, (2— 136) 式 计算 Sii (q), 
Sa Cq) 1 S (q). 


% 四 ,流程 图 = 5 


五 .变量 说 明 
x 为 输入 变量 ;十 为 输出 变量 


对 和 于 油 矢 gq 一 qo 十 (1 一 1)YAq, 计 算 并 输出 
S115q7 1S22 和 入 1269) 


жя) 


流程 图 2 一 5 


SIGMA1' ,SIGMA2" :两 类 硬 球 的 直径 Co, 和 cz 约定 оо). BE 
fv: À. 

ЕТА1».ЕТА?  , PAIE БЕ) НЕ Е E ЕЕ Оһ ЖІ 9). 

X ° :两 类 三 球 的 混合 比 . 

мост q 的 总 数 . 

QO ; 波 矢 的 起 始 值 go. 单位 :和 A '. 

DQO :计算 波 拓 的 步 长 Aq. PR z. Á `. 

Ока. PRA `. 

S11 (1) ,822(1)7 .812 (01) :1=1, NQ. 偏 结 构 因 数 5,093.52: (9) 
和 91， 09). 


六 、 外 部 函数 说 明 


1. АМІСИ 
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ИЯ м; сі іы 1 ОРА. 
2. ANNC12 
计算 (n, n)", cw 的 值 . 


七 ,计算 实例 


ТЖ T WE УУ 30% 的 液态 Na-K б АУ Ў. WE 
球 参 数 取 自 S. Wang and S. K. Lai,J. Phys. Fd 10(1980)2717,% 
gs = 3. 37 Å ,Йу,шх0.27,0к:-4.12А ,Йқұ--0.21 和 == 0. 3. 被 和 天 可 
JQ МО--80,0- 0. 0,Aq=0. 1, 运算 结果 示 于 图 2-13. 

本 程序 运行 时 ,采用 人 机 对 话 方式 , 按 屏幕 提示 以 自由 格式 刍 
入 输入 数据 . 运行 结果 除 在 屏幕 上 最 示 外 ,还 生成 一 个 如 OUT 的 
输出 文件 凤 存 结果 备查 ;此 外 ,还 自动 生成 一 个 输出 数据 文件 LB- 
DATA 供 在 屏幕 上 绘图 用 ,绘图 程序 参见 程序 7-2 PLTCV2. 

运行 指令 ;LBASTF ОСТ 


A , 源 程 序 ;,LBASTF + FOR 


PROGRAM LBASTF 
ОРЕМ (6.ЕП.Е=* " ,STATUS= ҸЕ?) 
OPEN(I0,FILE='LBDATA',STATUS=*NEW') 
WRITE( + ,10) 
10 FORMAT INPUT DATA: ',/, 

/ ° SIGMALETALI,SIGMA2,ETA2,X = "9 
READ( z ,* ) БІСМАІ.ЕТА1.51СМА2.ЕТА2,Х 
WRITE(6,200SIGMALI1,ETAI,SIGMAZ ETAZ,X 

2Ü FORMAT SIGMA1 =',F5.3,' ETAL =',F5. 3,25, 
/'SIGMA1 一 ,FE5.3， ЕТА! -",Е5.3,3Х."Х =”.F5. 3) 
WRITE( * ,30) 
30 FORMAT(3X,'NOQ ,Q0,DQ = 'N) 
READUOU* ,* ) NQ ,Q90,DQ 
WRITE(6.40) NQ ,Q0,DQ 
40 FORMAT( NQ -”,13,8Х,%90 =",Е5.3,4Х, 

/ 'DQ =',F5. 3) 

WRITECtO CIX 15) NQ 
20A 


50 


WRITE( + ,50) 
WRITE(C6, 50) 


ЕОВМАТ (4Х , 0°, 10Х,'511°,7Х,'522",7Х,'512") 
DO 60 I=1,NQ+1 
Q=Q0+ DQ + FLOAT(I—1) 
IF(Q0.LT.0.1E—3) Q=0. 1E—3+ DQ * FLOAT(I—1) 
H—SIGMA1/SIGMAZ 
ETA—ETA1+ETAZ 
Y—Q * SIGMA2 
AL3=H * = 3 
ALJ=(ETA1+AL3 * ЕТА?) * (1.0+2.0 + ЕТА) 
АТК =1. 0+ЕТА ЕТА # ЕТА 
АМ = (1.0—Н) + * 2 
АІ,Ч--1.0-ҒЕТА1-ҒН»(1.0-ҒЕТА?) 
TI=ALK * (ЕТА1+АЇЗ#ЕТА?)—3.0*ЕТА1*#ЕТА2* ALM + ALN 
T2=ALK+ALJ]— 3. 0 * ALM * ETAZ * (ALN+ETA1) 
T3=AL3 + ALK+ AL]—3. 0 * ETA1 * ALM + (ALN+ETA2 * H) 
Е3==1, 0/((1. 0— ЕТА? + * 3) 
Е4=Е3/ (1. 0— ETA? 
Т4=3. 0+ Е4 * ТІ 
Al=T2 * ЕЗ--Т4 
А?= (T3 E3+ T4)/AL3 
ЕН =1. 0-0. 5 * ЕТА 
Е2=1. 0/61. 0-ЕТА > + +2) 
С11=(ЕН+1. 5 * ЕТА? +» (H—1.0)) * Е2 
С22--“«ЕН--1.5«ЕТА1 x (1. 0/Н—1. 07) + EZ 
G12={EH+1. 5x (1. 0-- Н? ж (ETAL —ETA2)/(1.0+H}) *Е2 
АР?--(1.0-ЕН)» * 2 
ВЕТА1--8.0% (ETA1+*G11*GI1 
/ + 0. 25 * ETA2 * AP2 + H + С12 * 012} 
ВЕТА?----6.0» (ETA2 + G22 w С22 
/ + 0. 25 + ETA1 * AP2 * G12 + G12/ AL3) 
ВЕТА12= 3,0 * Н x (1. 0+-H)* (ETA1 *G11/(H * + 2) 
/ +ETA2 x С?2) + GIZ 


САМА1= (ЕТАі + АІ+АІ 2 * ЕТА? # A2)* 0.3 
САМА 122.0 + САМА! * (1. 0—H)/H 

АҮ= Н * Y 
СІ1--АМІСІКА1.ВЕТА1.САМА:ЬЕТА1ҺАҮ)» 
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60 
70 


САМА? =САМА1/АІ.3 

С22= АМІСІКА2,ВЕТА?,САМА?,ЕТА?,Ү) 
С12--АММС12(А1,Н,Ү,Х.ЕТА,ВЕТА12.САМА1,САМА12) 
D1=1.0—C11 | 

D2=1.0—C22 

D=D1 * D2—C12* C12 

S11=D2/D 

522-=р1/р 

512=С12/0 

WRITE(C* ,70) 0,511,522,512 

WRITE(6,70) Q,S11,S22,S12 

IF(Q. LT. 0.1) GO TO 60 

811--511--3.0 

522--522--2.0 

512--512--1.0 

WRITE(10,70) Q,S11,S22,S12 

CONTINUE 

FORMAT(2X,F5.2,5X,3(F7.3,3X)) 

CLOSE (6) 

CLOSE 10) 

STOP 

END 

FUNCTION ANICIKALBETALGAMALETAL YI) 

Y2 一 YIx ҮІ 

Y3=Y2 * YI 

Y4=Y3 * YI 

S=SINCYI) 

C=COS(Y]) 

Р= А] є (S—Y!* С)-ЕВЕТАІ ж (2, «Ү1ж5-<Ү2-2,)«С-2.У/ҮІ 
Q=GAMAI x ((4. 0 + Y3—24.0 * YI) x 5 
/ -(Ү4-12.0ж Y2+ 24.0) «С--24. 03/ ҮЗ 
АМІСИ = — 24.0 * ЕТА1 * (Р-ҒОУ/ҮЗ 

RETURN 

ЕМІ) 

FUNCTION АММС12(А1,Н,Ү,Х,ЕТА, 

/ ВЕТА12,.САМА1,САМА12) 

AP3=H * *3 

AL=1.0—H 
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Ү1=Н=„ү 
Ұ2--Ү1»Ү1 
ҮЗ-Ұ2»Ү1 
Ү4-- ҮЗ» ҮІ 
Y1=0.5EÉE0* Y * AL, 
S=SIN(Y1) 
С--СОЗ(Ү1> 
51,--ЗІМСҮІ) 
CL=COS(YL) 
FF 一 SQRTIX + (1.0—X))* AP3/(X+ (1. 0—X) + AP3) 
Р1 =BETA12 + (2.0% Ү1% C+ (Y2—2., 0) * S) 
Р2--САМА12% ((3. * Y2—6.)* C+ (Y3—6. ж Ү1) + 546. )/Ү1 
P3=GAMA1l x ((4.0* Y3— 24.0 * Y12 x Ç 

/ +(Y4—12.0* Y2+ 24, 0) + Sy/Y2 
T2=SL + (P1I+P2+P3)/Y4 
Ө1--ВЕТА12» (2.0+ Yl v S— (Y2-— 2.0) «С--2.0) 
Q2=CGAMA12=* ((3. 0 + ү?-- 6. 0) # 5 — (үЗ— 6.0 ж Y1) x CyZY1 
ОзЗ= САМА # (4.0 ж ҮЗ — 24, 0 + Ү19 x Š 

/ -(Ү4--р.0ж Y24 24.0) * C+ 21. 0)7Y2 
T3=CL * (01--02--О32/Ү4 
ALY=2.0* H* Yl 
Кі-«СІ,»((5-Ү1«СЭ/Ү2- AL # C/ALY) 
R2=SL * (СУ + SYYfYY2+ AL ж SS/ALY) 
T4=A1 + (RI+R25/Y1 | 
АММС12= — 24.0 * ЕТА + ЕЕ * (T2+ T3+ TÀ) 
RETURN 
END 
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Же вайбер ЕЕ 


在 讨论 晶体 的 弹性 性 质 对 ,一 般 可 以 把 晶体 看 成 是 均匀 连续 
介质 ,而 不 是 原子 的 周期 性 排列 . 这 一 近似 在 弹性 波 的 波长 大 于 
10- 米 ( 即 频 率 低 于 10: T 3#)BFIE А, t X E E: À 1115882 ТАЯ 
率 范 围 . 晶体 中 的 弹性 波 的 研究 很 重要 ,例如 通过 弹性 波 可 测量 
媒体 的 弹性 常数 ,研究 晶 烙 的 缺陷 等 . 在 此 基础 上 又 发 展 了 超声 
衰减 , 声 发 散 等 固体 物理 研究 方法 . 弹性 波 的 传播 特性 在 技术 上 
也 得 到 广泛 应 用 ,如 超声 波 探伤 ,彩色 电视 机 上 的 超声 延迟 线 , 圭 
达 系 统 中 为 了 压缩 脉冲 而 采用 的 衍射 光栅 色散 过 滤器 等 ,而 地 震 
学 上 正 是 根据 最 先 的 纵波 (一般 说 来 ,纵波 的 波 速 大 于 寓 波 的 波 
速 ) 和 横 波 到 达观 测 站 的 时 间 间 隔 , 来 确定 地 震中 心 至 观测 站 的 距 
H. 

晶体 的 各 向 异性 的 弹性 特性 ,使 声波 在 晶体 中 的 传播 十 分 复 
杂 . 兄 体 除了 产生 体积 形变 外 ,还 产生 剪 切 形变 ,因此 唱 体 变形 时 
激 起 两 种 类 型 的 波 ЕВН. 压缩 波 又 称 为 纵波 1ЛЛЕ1Е 
又 称 为 横 波 . 它们 以 不 同 的 速度 在 介质 中 传播 . 


53.1 晶体 阐 性 介质 的 基本 特性 


任何 晶体 都 不 是 绝对 刚体 , 当 其 受到 外 力作 用 以 后 ,将 引起 形 

变 ( 应 变 ), 与 此 同时 ,介质 内 部 产生 这 一 部 分 和 那 一 部 分 之 间作 用 

于 交界 面 上 的 相互 作用 力 , 这 是 一 个 面 办 (应力 )}, 应 力 和 应 变 是 

研究 弹性 介质 运动 基本 规律 的 出 发 点 ,也 是 研究 弹性 体 中 波动 及 
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E: te 2 J ШЕ > ЭШ. 
9311 应 力 张 量 与 应 变 张 量 
一 .应 力 张 量 
考究 在 某 一 时 间 , 占 所 空间 V 的 连续 介质 4, 如 图 3-1 所 示 . 


图 3-1 应 力 原 理 
想像 在 4 的 内 部 有 一 闭合 曲面 ,此 闭合 曲面 内 部 的 物质 将 受到 
两 类 力 的 作用 ， 一 类 称 为 体力 , 它 与 质量 的 分 布 有 关 , 如 重力 .所 
磁力 等 ; 另 一 类 称 为 而 力 ,它们 是 外 部 物质 通过 界面 S 对 内 部 物 
质 的 作用 力 . 这 是 形变 介质 内 部 不 同 部 分 之 间 的 相互 作用 .单位 
面积 上 的 面 力 称 为 (内 ) 应 力 . 考察 曲面 S 上 一 个 面积 为 45 (КИШ 
元 ,在 45 HRA P, 自 己 作 一 个 垂直 于 AS 的 单位 向 量 4, 其 广 
向 由 S 的 内 部 指向 外 部 . 位 于 正 向 部 分 的 物质 对 位 于 铅 的 物 
质 的 作用 力 为 AP, 力 АЕ 与 面积 的 位 置 .大 小 以 及 法 线 的 方位 有 
Ж. 当 AS->0 时 ,比值 55 趋 于 -个 确定 的 极限 2 ;并 且 , 在 极限 
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状态 下 作用 在 曲面 AS 上 的 力 绕 面积 肉 任 一 点 的 力矩 等 于 零 ， 由 
此 得 到 一 个 极限 向 量 


t= Пт чал (3—1) 


t 定义 为 该 点 的 应 力 向 量 . 一 般 地 ,* Буп 的 方向 并 不 相同 ， 

ЖЧ P 点 另 取 一 封闭 曲面 5 和; 并 在 PP 点 取 一 微 面 元 4S СЕ 
的 (外 ) 尘 线 是 到 ), 则 同样 可 定义 一 个 应 力 矢量 上 .cdS3 和 dS 虽然 
都 过 同一 点 了 ,但 和 + 代表 介质 不 同 部 分 之 间 的 作用 为， 由 于 过 
Р 点 可 以 引 无 数 不 同 法 线 的 分 界面 ,所 以 了 点 可 以 对 应 无 数 个 应 
HRED. 由 此 可 见 , 对 于 一 个 确定 的 点 了 ,只 有 同时 给 定 一 个 
确定 的 方向 #, 才 能 对 应 一 个 有 确定 意义 的 应 力 矢量 1. 给 定 一 个 
n 后 ,如 何 求 得 相应 的 应 力 矢 量 弛 弹性 理论 证 明 :只 要 知道 过 吨 = 
的 三 个 相互 正 交 的 微分 而 元 上 的 应 力 向 量 , 就 可 以 确定 过 己 ХАН 
任 -- 给 定 法 线 m ЕЕ УЛЫН. 

ӘР = єй T НІН ЕНЕ МЫЛ ОО 3-22. 
Im БАЈКА УСЛУ ЫЗ ТЕБ Ё-1т TF Ж 3Ú 
的 法 线 方向 .也 就 是 平行 于 坐标 轴 的 分 量 , 记 为 dars yya АЧ 
力 是 在 平面 内 , 它 得 分 解 为 平行 于 坐标 轴 的 分 量 , 记 为 0,50. 
б,е»бу:»0,,б.- 应 力 分 量 的 脚 款 ,前 一 个 字母 表示 为 所 作用 的 面 
的 法 线 方 向 ,后 一 个 字母 表示 力 的 作用 方向 ， Шо, 7 ТЕНЕ ЗЕ 
EF у 四 的 西元 上 应 力 矢 量 在 y ЈНА 0, Rm EE sis E 
Р АН ЕЛКЕ у Aar ЯҢ. 

= “ЕМ о, G. 6, IEH 0..9 «2,, Opas Ory 
BRET- АТ УЛПАКЯ МУЕН ГЛК. 

理论 上 已 证 明 , 切 应 力 是 互 等 的 , 即 


Gyr = rys Ory = G, , G; = Oar (3—2) 

所 以 ,应力 张 量 是 二 阶 对 称 张 量 , 用 和 矩阵 表示 ,可 记 为; | 
| б, On, On 

(g)= (6, 60,, Oya! (3—3) 
ерде 
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图 32 固体 中 的 应 力 和 应 力 分 量 


可 以 证 明 : 
=п • G (2-4? 
如 知已 知 应 力 张 量 5, 则 给 定 п ШНТЖШ z. 
二 .应 变 张 量 


国体 发 生 形 变 后 ,不 仅 各 方 何 的 长 度 发 生变 化 ,其 楼 边 夹 角 也 
会 发 生 改变 ,前 者 是 长 度 形变 ,后 者 是 切 形变 ， 

ЗГИНИ Е ВЮК, КИЖИ Р 
微小 立方 体 , 见 图 3-3 (2). 先 分 析 与 хоу 面 平 行 的 面 的 投影 的 形 
变 , 见 图 3-30). KARELA PAM P'B' „ЛЕКТ Р” А" 
P”B" 位 置 ,其 形变 可 分 为 两 种 ; 沿 坐 标 方 向 促 长 (缩短 ) 及 棱 边 类 
Жі АЕ. 

介质 的 形变 是 介质 中 各 点 相对 于 原始 平衡 位 置 的 位 移 不 同 引 
起 的 ,因此 形变 可 用 各 点 根 对 于 原始 平衡 位 置 的 位 移 表 之 ， 

如 取 Pir yso Ду Ж Си, ри, u,), W PC у) {у S$ 8 
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图 3-3 团体 内 -- 点 邻近 的 应 变 
(и,»ш,). 由 于 介质 中 各 态 位 移 人 不同 ,usu su ВС, у.х) й) 


函数 ,所 以 A (tdr y KTERY ut de) RE PA 
KF MRH ÉA 


(u+ idr) =u, №, 
e=— n = (3:09) 
Efe > yy ES КИІН СОЕ, ЕЛ. 


同 理 可 得 у 方向 和 > J [8] É 1Ë РУ 


_ Qu, 
fy 一 Зу (3—6) 
„=з (3—7) 


E T К. ВЯ ШЇ З-ЗА, P AA Р'В’ B] Ж 
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角 也 变化 了 . HJ Pir yp AWE yy 方向 位 移 为 uy 所 以 A (+ 


dr, yË у J 138 35, + Sr), m Р”А”@ 1 ET УУ (da + а 一 ~ 

алы НЮ PA" OZ hii Р'А' ЕТ AR 
ди, ч == 

| би, da) и, 


0, =tg 
4х-+®ах 
d ом 
= 5442224 za — 
tg БІ -= (3—8) 


(在 线 弹性 理论 中 ,只 考虑 < “1 的 情况 ,下 面 均 同 .) 
辐 理 可 得 y кенен OZ 轴 旋 转角 


Жан... (3--9) 
ду 
多 此 在 形变 中 ,立方 体 在 XOY Ж нт BJ БЛ J 3⁄ f ЛА 


HO +A). RIE Ў 


1 l ,0н,, ди, Е 
e, =e, = (0,-0,2--5 021953) (3-10) 
为 切 应 变 ， 问 理 可 得 
Е 0 Е. ВЕ 
бу С F 2 2 53-11) 
_ і Ək, Ф. _ 
e, =E => а) (3—12) 


三 个 下 和 应 变 分 量 与 六 个 切 应 变 分 量 组 成 一 个 二 阶 对 称 张 量 , 称 为 
应 变 张 量 , 它 描述 了 一 点 的 应 变 状态 . 用 矩阵 表示 , 记 为 
біз Жы Жы 


3—13) 


е уг Еу, Еу; 


Esz €, “€s; 
根据 弹性 的 连续 性 的 要 求 ,各 应 变 张 量 分 量 o 之 间 不 可 能 是 
百 相 独立 的 , 它 位 必须 满足 下 面 六 个 方程 , 即 相 容 性 方程 : 
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(3-14) 


9 еу 9%, 9”;, 
дтду ду? да? ° 
А Ü ‘е, _ 2%, 9%, 
ду |Ә” әу” 
2%, 9%, 2<е., 
Әде Jr’ 


3.1.2 ”形变 动力 学 方程 


设 在 弹性 体 中 任 取 一 体 元 4AY7 ,其 团 台 边界 表面 为 45 ,外 法 线 
Hn. 弹性 体 的 质量 密度 为 p. 作用 在 该 弹性 体 的 单位 体积 上 的 体 
力 为 有 ,单位 表面 积 上 的 面 力 为 t. 于 是 所 受 合力 为 


pe МУ (аз (3—15) 


а 


按 牛 顿 力 当 : 的 动量 定理 有 
4. Шығу - Шау Pias (3—- 16) 


应 用 高 斯 定理 .将 面积 分 化 为 体积 分 , 且 考 虑 到 АУ 的 任意 性 , 则 
可 内 上 上 两 式 导 出 : | 

À + c+ f = oa (3—17) 
EAER EIA te 
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(3--18) 


ЕЕНМАІЯ АНЕЛЯ. 
FAF a= 0, H 
V 。0 十 fj 一 0 (3-19 


3.1.3 形变 能 密度 与 广义 虎 克 定律 


弹性 体 在 外 力作 用 下 产生 弹性 形变 ,各 质 元 偏离 自己 的 平衡 
位 置 . 外 力作 功 以 弹性 势能 的 形式 巡 存 在 弹性 体内 . 单位 体积 内 
的 弹性 能 称 为 弹性 能 密度 ,用 W 表示 , 它 是 应 变 е BJ A. 将 WW 
(ej) 在 ej 三 人 0 附近 展 成 泰勒 级 数 ， 


+L 2 W 
W er) = Ос e KITE" "m =I N еше, 
1 3%W 
аул. 2 л А = аа = 0 
31 AE де,, | о" + (3 一 20) 


由 于 弹性 体 在 平衡 态 时 ,势能 取 极 小 值 , 令 此 极 小 值 为 零 , 于 是 


有 : 
W(0)=0 ,| =0 (3 一 21) 
|6,0 
忽略 高 阶 项 , 则 弹性 势能 密度 由 下 式 表 达 ， 
24; 
W. == ис (3—22) 
今 
23W 
C tima == Rv. көзі (3—23) 


Cume 称 为 弹性 常数 ,于 是 Wles) 可 表达 为 
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== T Сиене, 《3 一 24) 


由 于 


ау 3 W 
Ж ыд, Eu Ey 


以 及 ei 二 ei181 个 弹性 常数 Cu 组 成 的 四 阶 张 量 ,各 组 元 满足 关 
系 式 : 


(3-25) 


C iima = Сам m C hima == C ttam (3—26) 
所 以 , 它 是 一 个 对 称 张 量 , 独 立 的 组 元 共 21 + ` 
体积 为 了 的 弹性 体内 贮存 的 总 弹性 势能 名 等 于 下 面 的 积分 
A: 


о— | еду (3—27) 


Ф 等 于 形变 过 程 中 外 力 对 该 形变 体 所 作 的 功 . 
现 假定 有 一 附加 小 位 移 4, 与 之 对 应 的 附加 应 变 为 беу), W| $ 
的 微小 变化 是 ， 


另 一 方面 ,外 为 对 位 移 ди ВТЕ Л š 
„Пын и 
Шә адак 
"| | J Г-ағ,ди,--ав,8и;:-а,(8и,)14У 


_|| asdauodv 朋 jaceoar (3-29) 


比较 上 两 式 , 有 
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| == (3-30) 
将 灰 的 表达 式 代 入 上 式 ,运算 后 得 
б;--ңС;шен ¿J k i= 1,2,3 (3-31) 


ЖЕП ARAKEA. 它 反 瞻 了 应 力 和 应 变 之 间 的 响应 关系 . ER 
一 共有 9 个 线性 方程 НҒ Qj == бру Pí ер з H í ЖУН E 
ВУЛЕ, “БЕН ТОНУ ИЛЕ ЕМЕН C, JH 6Х6 
的 角 对 称 数 表 Cxw 表 示 , 如 表 3-1. 
R 3-1 ”甘于 弹性 第 数 的 张 便 表示 和 矩阵 表示 
的 分 量 脚 标 间 的 对 应 关系 
(ij) 11 22 33 23(32) 31613) 1221) 
K = M 1 2 3 4 5 6 

于 是 有 和 下列 相 应 的 变换 ， 


四 阶 张 量 6х67 


Си Сұм С.).4.1--1.2.3;К.,М--1,29-е 6) 
Gij Sij (r j= 1,2,4) 

де; E;j (1./--1,2,3, ІН Z ;) 
ец с; 


J ХӘ ЕЕН] R IK e is Б. 


弹性 常 
220 


ё„==С\,Е„-ЕС,;е,„-+С,;.„-ЕС,,„-ЕС,Е„-ЕСнЕ., 
в, =C y Err Сце, СЫ e, CasEy t Crt Сце, 
0.. = Сё, Сп, Can TCE FEE 4-С, 
бб нық ықы ата ы” 
да Сы Сә, ЕС; CssEys 十 人 6 十 Cs 
Cry СЫ Соё, ЕС, Cu z, Сее, Cosss, 


Ж C. ZR 6х6 对称 方 陈 


Сп Са Canne С» 
OoOo (3—33) 
Ke Со Сы келк Сы 
一 共有 21 个 独立 的 阵 元 . 
53.2 波动 方程 及 其 求解 
Па, 平衡 方程 (3 一 17) 变 为 
Ç • а= ра (3—34) 
УЖЕ 
5ч 20, 2%, | 
2- i 2 зат 1=1.2,3 (3—35) 


将 虎 友 定律 (3 一 31) 式 和 应 变 矩 算 (3 一 13)? 代 入 (3 一 35) 式 ,经 运算 
后 有 


ШІ hl іп 
ALAL, Ж 
此 即 弹性 体 中 的 波动 方程 . 
对 于 无 限 大 的 各 向 异性 弹性 图 体 ,(3 一 36) 式 的 解 是 一 平面 波 
ибт.) == Aexplig(r— yt)] (82-227) 


AP ur EE r #Ë ARE q ЖИЙ N A 是 振幅 . 其 
А | 
r= =Ti+ уј 2 (3—38) 
А-Аш-А,)--А,к (3--39) 
《3 一 36) 式 的 解 亦 可 写成 
и;= А, ехр ;g tl z--1,y--1,z— Xt) | і- 1.2.3 (3—40) 
hinh PE FET АУ ЗАТРОНУТЫ ЖЕЛІДЕ 
z 辆 的 夹 角 为 ,9 在 2 平面 上 的 投影 与 zx 辅 的 淆 角 为 风 , 则 有 
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(ү--віпбсовф, (;-хзіпбвіпф, I,=cos0, (3-41) 
Шағала д0, ERRET H fE Ілу Е. 
将 (3 一 40) 式 代入 (3 一 36) 式 ,有 
Г ov А, -Г,А, +Г,,А=0 
Aras aasma (3-42) 
LT A, +ЖГьА, СГ, р )А, =0 


式 中 Газ СС) (3—43) 


(3 一 42) 式 是 一 个 齐 次 线性 方程 组 ,要 振幅 4 的 分 量 不 全 为 
等 的 条 件 是 它们 药 系 数 行列 式 为 零 , 即 有 解 的 久 期 方程 为 
之 ,| Tu 一 9xpo 一 0 j=1,2,3 (3—44) 
(3—44) е 的 三 次 方程 , 它 是 正定 对 称 方程 ,有 三 个 实 根 , 由 
此 得 到 三 个 速度 v,,v,,vs, 其 中 最 大 的 速度 相应 纵波 或 近似 纵波 ; 
其 它 两 个 相应 横 波 或 近似 横 波 . 这 二 个 速 育 值 分 别 对 应 三 个 振幅 
асы А, АЗ? 49% 
由 于 方程 (3 一 44) 的 关系 ,从 (3 一 42) 式 只 能 解 得 振幅 Ас 
А' ,#4") 的 二 个 分 量 的 比值 ,而 不 能 得 到 它们 的 绝对 什 ,其 物理 原 
因 是 ;按照 虎 克 定律 ,应 力 和 应 变 成 正比 , 故 从 方程 (3 一 42) 只 能 算 
得 在 品 体 中 弹性 波 传播 时 质点 位 移 在 坐标 轴 上 三 个 分 量 的 比值 ， 
也 即 是 振幅 的 三 个 分 量 的 比值 . 因此 我 们 将 A = Ж 
A=d laita] tak) _ (3--45) 
AP а, аса УЕМНАНИЛЫЖ За 表示 A 的 大 小 , 它 是 
— е РАИС ЕВУ Е. 解 联 立 方程 (3 一 42) 得 
А, _ Гъби р) Р.Г 
А, Г.СГь-роо-ГГ, 


Аз ГГ р) Г.Г Ш 
А, Г. (Гри?) Г.Г, ый; 


并 有 ai tai аҙ = (3—48) 
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(3—46) 


53.3 能 流 矢 量 


得 到 久 期 方程 (3 一 44) 的 解 后 ,就 可 以 计算 弹性 波 的 能 党 矢量 

马 , 它 被 定义 为 单位 财 间 通 过 垂直 于 其 一 方 呵 的 单位 表面 积 的 能 
量 流 ,此 能 流 即 为 此 方向 的 能 流 矢量 . 它 可 按 下 式 计算 : 

E; = Уо, :1=1,2,3 (3—49) 


将 (3—5) 25 (3—7), (3—10) 2 (3—12), (3 一 31), (3—46), (3 一 
47) 等 式 代 入 (3 一 49) 式 ,得 


1 ди, ‚ дщ ди, _ 
E= y 2 Cu +2 (3 一 50) 
将 (3 一 45) 式 代入 到 (3 一 40) 式 ,立即 得 到 
wdaexpliqtl ziyt lz - vut) | (3--51) 


再 将 (3 一 51) 式 代入 (3 一 49) 式 ,就 有 
Е,=.5,ехр [ig Q, zL,y+ lz — ot) J . = 1 2,3 (3—52) 


жен 5,=-у@' Z Саба ада, (3-53) 
将 (3 一 52) 式 在 一 个 周期 肉 取 和 平均 ,得 
2 
Е-е = 2 Ciu lalita )a, (3—54) 


ERER F фк) ARRA 88 AER ЛШ БЕЛ 
量 ,: 一 1,2,3. 今 有 三 种 振动 模式 (两 个 枢 波 ,一 个 纵波 ), 其 传播 
速度 分 别 为 vi,vzwv3; 对 应 的 质点 位 移 振幅 为 A” ,A ,A ,如 以 
aisbisci 分 别 表 示 此 三 个 矢量 的 方向 余弦 , 即 有 
AV =d (aita, j+ ak) 
же (bi+bh,]j+b,k) (3--55) 
AV = 4, (сс, ј сз) 
则 相应 于 三 种 振动 模式 的 能 流 为 ; 
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1 „а 
Е = уа б > Сш (ам, talja; 


2 
Em 544 = У Ciu bitb db, (3—56) 
2 ай 


ай | 
Е =a: 一 Cj (cili tH cits УС} 
Оз эш | 


(іг-1,2,3) 


程序 3-1 国体 中 弹性 波 的 相 速 ,粒子 运动 
方向 和 能 流 方向 的 计算 


二 ,功能 


输入 固体 的 弹性 常数 和 密度 ,计算 此 各 向 异性 连续 弹性 介质 
中 三 种 模式 (一 个 纵波 和 两 个 横 波 ?的 波 沿 所 给 方向 传播 的 相 速 度 
的 大 小 ,粒子 位 移 的 方向 以 及 能 流 的 方向 . 


= I 


1. 输入 固体 密度 p ЕЖ Cm Unn =], 2, 6) 和 小 的 
传播 方向 的 极 角 9 和 峭 的 上 、 下 限 ( 负 ,Bi 和 Jrr.i) 以 及 特此 8 和 
六 区 间 等 分 的 段 数 CNT 和 NP). 对 于 漆 所 得 到 的 一 系列 的 0,0 
值 所 标志 的 方向 传播 的 弹性 波 进 行 计算 . 

2. 对 于 每 一 个 传播 方向 40, 人 ,按照 (3 一 41) 式 计算 q 的 方向 
90 L L 和 4 按照 表 3 一 1 将 力 常 数 矩 阵 元 Cm АЖ ЖОК 
ЕН C 再 按 (3 一 43) 式 ,计算 波动 方程 (3 一 42) 中 的 互惠 阵 
ВУХ л. T ij. 
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3. 计算 (3 一 44) 式 | 有 一 加 pz 的 特征 值 ou: 和 特征 矢 A. 

4， 从 (3 一 44) 式 可 以 算得 v 的 三 个 解 ,它们 对 应 于 三 种 波 的 
传播 模式 .对 于 每 一 个 速度 v, 按 (3 一 46) 积 (3 一 47) 式 计算 其 位 
移 天 量 A 的 振幅 的 各 分 量 A A, 和 A;, 从 而 计算 4 的 极 角 0, 和 
ga 再 按 (3 一 41) 式 计算 相应 和 的 А 的 方向 余弦 ， 

5. 对 于 每 一 种 波 的 传播 模式 (具有 相应 的 速度 v), 按 (3 一 54) 
AIHER E E 的 三 个 分 量 ,从 而 算得 E 的 极 角 0: 和 фе. FJ 
样 , 按 (3 一 41) 计 算 相 应 的 EE 的 方向 余弦 . 


四 ,流程 图 3 一 1 


五 ,变量 说 明 


x 为 输入 变量 ;十 为 输出 变量 . 

INFMAT :文字 信息 . 字符 型 变量 

CIAN, M) IN.,M=1.2,- 6. 以 二 阶 和 矩阵 形式 表示 的 弹性 常数 . 单 
位 :GNm 和 

NOT(I,J):I.]=1.2,3. 力 常 数 的 张 量 表示 与 矩阵 表示 两 者 的 脚 
标 变换 矩阵 . 

RHO* ;国体 的 密度 ， 单 位 :kgm `. 

THETA” PSAI” ;弹性 波 传播 方向 的 极 角 8 # 2. 0 55] z НН 
角 , 风 为 其 在 zy 平面 上 的 投影 与 zx 铀 的 光阴 . 单位: 
ЕСКЕ». 

LPR(D 7.1=1,2,3. WÉS (ӨЛГЕ 6.0 HPZ) r 532 1..4. 和 
E 

TU',TL',NT :8 的 上 .下 限 和 ,名 和 北 6 区 间 被 等 分 的 段 数 
МТ. 

PU'PL', NP :多 的 上 .下 限 Yi ЖЕУ [Х [Н] ЕЕ АЈ Ж 
МР. 
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输入 介质 参数 op，C ,传播 方向 9，y 的 上 00, bL, уо, 


ФЛ 53860, ФА BRANT, NP 


计算 0= (0—01) NT, j= (с-ш / МР 


8=8+ (1— DA 


фе, J=1 


= + (J— 34) 


тй! ‚42543, ҢІ Ң9,%,41542,43 


流程 图 3 一 1(a) 


DT ;0 ЕК Ай. 
DP ;y 的 步 长 Ау. 
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Га-- PUU Cijut С) 
И Га — доу 的 特征 值 py “和 特征 同 量 4 


iF WA ANM бл, ФАТ [р] 2 SZ 1 А1»4А2,4А3 


E= gy Cin Cit С) а) 


计算 Erm 的 8E 和 方 [п] 余 ЖЛЕ], /Е2, ЕЗ 


їй 出 Www 以 及 相 ру ба, ZA ГАЈ s AZ, l Аз» ÎE, YE, ŻEL “ГЕ, ЕЗ 


流程 图 3 一 1 人 b) 


GAMMA (1,K):1,K=1,2,3. ГЕ ЗЕРЕ Гь. 
NM;: 模 的 编号 ,NM 一 1 和 2 为 近 于 横 波 的 模 1NM 一 3 JEFA 
ЖІ. 
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V+ (NM) :弹性 波 传播 的 相 速 . 单位 :km/s， 

AIL, NM) ty T PJ ТЖ: 5: Pt A. 1=1,2,3 分 别 相 应 于 XZ, yx Е 
方 癌 的 分 量 ， 

ElI,NM) :能 流 矢量 E. I=1,2,3 分 别 相应 于 x,y,z 三 个 方向 的 
АЖ. | 

THETAE+ ,PSAIAE7 ЖЕ В АА 0л, фа 或 为 
能 流 矢量 的 极 角 坐标 Orpa 

АЕ) ,I 二 1,2,3, 相 应 于 0, ОҚАЛЫ ЕЛІН Lao 
азға СҚ ЖҮГІ siga) 

JW ; 写 语 和 铝 的 控制 参量 ,JW=1 相应 于 粒子 位 移 ;JW =2 相应 于 


入, 子 程序 说 明 


1. MATEIG(N ,H ,EV) 

输入 一 个 NN 行 ,N 列 的 实 对 称 短 阵 了 入 (I,J)》, 用 雅 可 比方 法 计 
算 其 特征 值 EA(TD) 及 相应 的 特征 向 量 EV (1,J) ,输出 时 将 EA (D 
ET HITI). 有 关 窍 阵 特征 信 的 雅 可 比 计 算 方 法 详 见 附录 1. 

2. EIGRARH,EA,W ,EV,N) 

此 子 程序 首先 调用 子 程序 MATEIG ,用 以 计算 N 行 ,N 列 的 
实 对 称 矩 阵 НО. РАННЯ EA(I) 和 特征 向 量 EVCI,J). 然后 将 
特征 值 按 由 小 到 大 的 顺序 排列 ,并 将 特征 向 量 作 相应 的 重 排 。 吗 
元 W(1) 是 工作 和 矩阵. 

3. VELOCIT (RHO,THETA ,PSAI,C,Y,LPR,A): 

计算 弹性 波 传播 的 三 种 模 的 相 速 度 u ,vs zs. 

4. DIRECT (AE ,NM ,JW ,EPS) 

计算 粒子 的 位 移 矢 量 AC AE 一 A 时) 或 能 流 和 撩 量 ECH АЕ 
=E DEJ H PRIA holasi, 和 相应 的 极 角 坐标 0,0. 


228 


七 .计算 实例 


ж 3 一 2 列 出 了 一 些 晶 体 的 弹性 常数 .密度 以 及 更 体 所 属 点 
群 , 据 此 制 成 相应 的 输入 数据 文件 就 可 计算 在 这 些 晶 体 中 传播 的 
弹性 波 的 粒子 位 移 速 度 和 方向 以 及 能 流 方 回 . 弹性 波 的 传播 方向 
可 任 选 . 例如 ,对 于 CaMoO, 晶体 ,具有 Cw 的 点 群 对 称 性 ,属于 四 
方 晶 系 . Tk & 1-1 的 坐标 选取 方式 ,选取 x,y,z 三 个 坐标 铀 分 别 
平行 于 唱 胞 的 三 个 基 矢 a,b,c. 如 和 个 研究 在 жу 平面 内 不 同方 向 传 
播 的 弹性 波 的 特性 时 ,可 取 如 下 值 :六 一 90" ,名 二 95 NT 一 2; 久 二 
0.%;--907,МР--18. 
—#& R, £ PER ЕЕ .弹性 常数 和 密度 (弹性 常数 矩阵 元 的 单位 
为 CNm PEFEA kem `. 表 中 未 列 出 的 С. (82 0) 


% 3-2 


СаО), 


СаМоО, SrMoO, 


ЛЛ 国正 本 -一 再 一 一 -er 一 re 一 一 一 一 一 rr 人 一 一 一 一 -一 一 一 -一 一 一 一 一 一 一 一 -一 一 


143. 87 
63. 501 
96. 170 


16, 355 
143, 87 
36. 170 


130.18 


— 18. 2202-5-14; 72 


125. 86 


115. 46 
59. 85 
44. 36 


12. 09 
115. 46 
44. 36 


-- 12. 09 
104. 19 


124.0 
94.0 


— 1.0 


то. 60 
16. 76 


169. 0 
122.0 


—.  a—As r ee ні. et А. 
И --------- — M a аана АА A — 


ВРЗ 


Са), СаМооО, SrMoQ 4 МЕР, 


33.609 35.01 24.99 55.4 


33. 609 36.91 34.99 35.4 


45.073 46.07 47.55 97.8 
0120 4255 4540 3177 


CaSO, 


NaBrQ 
жо T 
一 17.4 
9.10 15.08 
-1.6 
26,4 15.08 
10.44 15.08 
2280 3339 


75.2 
8930 


本 程序 运行 时 ,采用 预先 制备 的 如 ЕЛЛАУЕ» DA T 的 数据 
文件 作 输 入 文件 . 数据 采用 自由 格式 读 入 . 和 运行 所 得 结果 除 在 屏 
幕 上 显示 外 ,还 生成 一 个 如 OUT 的 输出 文件 贮存 结果 备查 . 

运行 指令 :ELWAVE ELWAVE. DAT ОСТ 


八 . 输 入 文件 :ELWAVE，DAT( 以 计算 CaMoO, 晶体 中 传 
播 的 弹性 波 为 例 ). 
' VELOCITY & DIRECTORS OF МАМЕ FOR СаМо04” ПМЕМАТ 


68. 6100 48.4300 .0000 .0000 12.7200 
68. 6100 143.9200 48. 4300 .0000 .9000— 12, 7200 


143. 9209 


48.4300 48.4300 125.8600 . 0000 . 0000 
,0000 .0000 .000039.9100 .0000 
.0000 .0000 .0000 .000039. 9100 

12.7200— 12.7200 .0000 .0000 .0000 

4. 255 [RHO 
90.00 95.00 2 [TL,TU,NT 
„00 90.00 18 ІРІ..РО,МР 
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. 9000 
.9000 
„0000 


46.070 [C(I,]) 


10 


20 


30 


40 
90 


60 


九 , 源 程序 :ELWAVE . FOR 


PROGRAM ELWAVE 
КЕЛІ. «8 A(3,3) ,GAMMA{t3,3),Et(3,3),V{3), 


/ SUM1,SUM3,SUM 


REAL LPR(3) 

DIMENSION C(6,6),NOT(3,3) 

CHARACTER * 80 INFMAT 

DATA МОТ(1,12.М07(1,22.М07(1,3),М07:12,1) 
.NOT(2,2),NOT(2,3).NOT(3,1) ,NOT(3,.2) 


/ .МОТ(3,32/1.6.,5.6.2,4,5.4.,3/ 


ОРЕМ5ҒІКЕ-” %5ТАТО5- ОО” 
OPEN(6,FILE=* ,STATUS=°*NEW') 
READ(5, +) NFMAT 
WRITE(*,*) INFMAT 
WRITE(6, * ) INFMA T 
WRITE( * ,10) 
WRITE(6,10) 
ҒОБМАТО0Х,% к» INPUT DATA # # * x */) 
WRITE( * ,20) 
WRITE(6.20) 
FORMAT( ELASTIC CONSTANTS СМт ж ж {—2),'/) 
WRITEC* ,30) 
WRITE(6, 30) 
БОВМАТХ.Л,6Х,70117,6Х, С127,7Х, 
C13 , 7X , #С14',7Х.°С15',7Х, "Сі6°) 
ГО 40 I=1,6 
READ(S5, x) (С(1,}),)=1.,6) 
WRITE(* ,50) L, (C(I.J),)=1,8) 
WRITE(68,50) L, (C(L,J),J=1,8) 
CONTINUE 
ҒОНЕМАТ(1Х.П.1Х.6Е10. 4) 
READ¿(5, * ) RHO 
WRITEC* ,60) RHO 
WRITE(6,60) RHO 
FÖRMAT(/' DENSITY =',F9.3," # 1000 Кап» #(—3)') 
READ(5, *) TL,TU,NT 
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WRITE( < ,70) TL,TU,NT 
WRITE(6,70) TL,TU ,NT 
70 ЕОВМАТПХ,'ТНЕ RANGE ОЕ THETA IS FROM ”, 
/ F6.2,' TO *,F6.2,' WITH ",12." 8ТЕРӨ.") 
READ(5, » } PL,PU ,NP 
WRITEC* ,80) PL ,PU ,NP 
WRITE(6,80) PL ,PU ,NP 
80 ЕОВМАТ(1Х,'ТНЕ RANGE OF PSAI 15 ' 
/ FROM ',Е6.2,' ТО ',F8.2,' WITH ， 
/ .12,' STEPS. '/31X ,*(IN ПЕСКЕЕ)”) 
WRITEt + ,90) 
WRITE(6,90) 
90 FORMAT (/20X,'* ж ж х OUTPUT DATA = # x +'/) 
WRITE? + ,110) 
WRITE(6,110) a 
110 FORMAT(27X,.'THETA РЗА L 5 
/' 12 1,3'/26Х,'(РЕСЕЕЕ) (DEGREE)’) 
DT=(TU—TL)/FLOAT(NT) 
DP= {PU— PLY/FLOAT NP) 
DO 190 I=1,NT+1 
THETA=TL+FLOAT(I—1) * DT 
DO 180 J=1,NP+1 
PSAI=PL+FLOAT(J—1) + DP 
CALL МЕ ОСІТ«ЕНО,ТНЕТА,РЗА1,С.У,1.РК.А) 
WRITE( * .210›ТНЕТА.Р5А1,1РЕ‹1),РЕ(2),1РЕ(3) 
WRITE(6,2107THETA,PSAIL LPR(1),LPR(2),LPR(3) 
ГО 160 NM=1,3 
ГЮ 150 ТІ--1.3 
SUM=0. 0 
DO 140 JT=1,3 
DO 130 КТ--1.3 
DO 120 LT=1,3 
M=NOT(IT JT) 
N=NOT(KT,LT) 
SUMI=LPR(LT) + A(KT,NM)+LPR(KT? + A(LT,NM) 
SUM3=C(M,N) «АСТ,ММ) 
SUM=SUM-SUMI * SUM3 
120 CONTINUE 
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130 
149 


150 
160 


170 
180 
190 


200 


210 


229 
230 


CONTINUE 

CONTINUE 

E(IT ,NM)=SUM 

CONTINUE 

CONTINUE 

DO 179 NM=1,23 

WRITE( x ,220) NM 
WRITE(6,220) ММ 

CALL DIRECT(A,NM ,1,1E—4) 
CALL DIRECT(E,NM,2,1E—4) 
WRITEC# 230 {ММ 
WRITE{6.230) УҰММО 
CONTINUE 

CONTINUE 

CONTINUE 

WRITE} * ,200) 

FORMATO NOTE: MODE 1 AND 2 АВЕ ALMOST' 

/ ," TRANSVESE WAVES,’/?X ,' МОРЕ 3 IS' 

Г." ALMOST LONGITUDINAL МАМЕ, 9 
FORMAT(/' PROPAGATION DIRECTION ',5F9.4) 
FORMAT(2X, MODE "1,7 
FORMAT(3X, 'VELOCITY ='.F5.3," km/a") 
STOP 
END 

SUBROUTINE YVYELOCIT(RHO, THETA, PSAL 

А C.,V.LPR,A) 

REAL + 8 D(3): GAMMA (3.3),:A 42,3), W (3) YG). SUMS 
REAL І,РК<3) 

DIMENSION МОТ (3.3). С{6,6) 

DATA ҸОТ(1,1),МОТ СІ. 27), МОТ (1,3),МОТ 2,1) 

/ „МОТ (2.2).МОТ(2.3).МОТ<3,1), МОТ СЗ,2) 

/ АМОТ53.32/1.6,5.6.2.4,5.4.3/ 
БАП--3.141582654/180. 0 
ТЕ =ТНЕТА + КАР 
РЕ =РѕЅАІ + RAD 
LPR(12=SIN(TR)* COSCPR) 

LPR(2)=SIN(TR) ж SIN(PR) 
LPR(3)=COSCTR) 
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10 
20 


30 
40 


99 


19 


20 
39 
40 


ГО 40 JS=1,3 
DO 30 KS=1,3 
SUMS=0.0 | 
DO 20 ІБ--1,3 
DO 10 1,5--1.3 
MS=NOT(IS,JS) 
М5--МОТ(К5,1,5) 
SUMS—SUMS+LPR(IS) + LPR(LS) + C(MS,NS) 
CONTINUE 
CONTINUE 
GAMMA (JS,K5)=SUMS 
IF(JS. NE. KS) САММАЧ(К85,19)--САММА(15,К5) 
CONTINUE 
CONTINUE 
CALL ЕІСЕАКССАММА,р,%.А,3) 
DO 50 ММ-і1,3 
УММ) =DSQRT(D(NM)/RHO) 
RETURN 
END 
SUBROUTINE EIGRARO(H ,EA,W,EV ,N2 
REAL * 8 HON,NY ,EVN IDEAN), WiN) 
CALL МАТЕГС(М,Н,ЕУ) 
DO 101--1,М 
EA(D=H(1. P) 
CONTINUE 
DO 40 ]JJ=1.N—1 
DO 30 KK=JJ+1,N 
IF((EA (J!) —EA(KK)). LE. 0. 0) СО ТО 30 
W(JJ)=EA(]1) 
БАОІ--ЕАХКК) 
ЕАКК >= (]]) 
DO 20 LN=1,N 
W(LN)=EV(LN,J]) 
EV(LN,J)=EV(LN,KK) 
EVO4LN ,KK)= W(LN) 
CONTINUE 
CONTINUE 
CONTINUE 


RETURN 
ЕМІ 
SUBROUTINE MATEIGIN HEYV) 
REAL *& HN,N),EV(N,N),ANORM,STC.CONSTF 
REAL *8 UA,VA.WA,SNN ,SNN2,CSN ,CSN2,B.C APP, AQQ 


10 
20 
30 


40 
50 


60 
70 


EPS=0, 1D—5 
CONSTF=FLOAT(N) 
IN=0 

DQ 30 J=1,N 

DO 201-1,М 

IF ((I—J). EQ. 0) GO TO 10 
EV (I.])=0. 0 

GO TO 20 

FEV(I,J])=1.0 

CONTINUE 

CONTINUE 

АМОЕМ =0. 0 

DO 50 J= 1,N 

DO 40 I=1,N 

IF((]J—D. EQ. 03 GO ТО 40 
АМОКМ = АМОЕМ+НО,Ј * H(1,J? 
CONTINUE 

СОМТІМІЛЕ 
АМОКМ--БЗБОКТ«АМОКМ) 
ҒМОКМ--АМОЕМ x EPS 
ANORNM=ANORM/CONSTF 
DO 110 IQ=2,N 

DO 110 IP=1.IQ —1 


IF((DABS(H¿(IP,1Q3)— ANORMD. LE. 0.0)GOTO 110 


IN=1 
УҮА-(НАаОР.ІРЗ-Н(й0.1092/2.0 


WA=UA/(DSQRT(UA + ЈА БУА + УА?) 


IF (УА. LE. 0.0) МА = — WA 


SNN=WA/(DSQRT (2. 0 + (1.0--Б5ОКТ(1.0-А * WA2))) 


SNN2=SNN ж5МЫ 
CSN=DSQRT<1. 0—SNN2) 
DO 90 1=1,N 


80 


90 


IF ({1—IP). EQ. 0) GO ТО 80 

ІК ({I— IQ). EQ. 02 GO TO 80 
В-НС,ІР»«С5М--Н4,102 + SNN 
H(I,IQ)—HII,IP) + SNN+HI,IQ) + CSN 
Hl,IP)=B 

CONTINUE 

C=EYV (LIP) + СМЕМ (LIQ) * SNN 
EV(LIQ) = ЕУ (1,19) + CSN+EV(LIP + SNN 
EV(I,IP)=C 

CONTINUE 

CSN2=CSN * CSN 

STC=SNN «СБМ 

АРР-«НАР,ІР) x С5М2--Н09,Ю) » 5ММ2 


/ —2. 0 * H(IP,1Q) + STC 


AQQ=H(IP, IP) + SNN2+ H(IQ ,IQ) + CSN2 


/ +2. 0 x HOP IQ) + SIC 


HUP,IQ) == (H(IP IP — H(IQ.1Q 0) + STC 


/ +Н(ІР 19) * (CSN2—SNN2) 


100 
110 


120 


10 
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H(IQ.IP)=H(IP ,IQ 5 
H(IP..IP)= APP 
HIIQ .1Q)= AQQ 
DO 100 I[=1,N 
НР.) =Н,1Р 2 
H(IQ.D =H(L,IQ) 
CONTINUE 
1Е САМ — 1). NE. O GO ТО 120 
ІМ--0 
СО TO 70 
IFL{ANORM — FNORM). GT. 0. 0) GO ТО 60 
RETURN 
END 
SUBROUTINE DIRECT(AE,NM.JW EPS) 
REAL #@ АЕ(3.32.8.ТНЕТАЕ.РЗАТАЕ,РІ,КАР.Ь1,АЕ (3) 
PI=3. 141592654 
RAD=PI/180. ПФ 
5= 0. 0 
DO 10 1==1,3 
ЇЕ(ОАВЅ‹АЕ(1, NM) GT. 5) 5 = рАВЗСАЕ(І, NM)) 


20 


39 


40 


50 


69 


70 


80 
90 
100 
110 


120 
139 
149 
150 


160 


DO 20 1-1,3 

LAE(D= AE(I,NM)/S 

S= 0. 0 

ПО 30 I=1.3 

S=S+LAE(I) + 1АЕ 

S=DSQRT(S) 

DO 40 1=1,3 

LAE(D =LAE(D/S 

IF (DABS(LAE(3)). GT. EPS) СО ТО 50 

ТНЕТАЕ--Р1/2.0 

СО TO 70 

IF(DABS(LAE(3)). LT. (1. 0—EPS)) СО ТО 60 
THETAE=0. 0 

PSAIAE=0. 0 

СО ТО 150 

THETAE=DATAN(DSQRT(1.0—LAE(3) + + 22Л,АЕ53)) 
IF(THETAE. СТ. 0.0) GO ТО 70 

THETAE=PI+ THETAE 

PSAIAE=0. 0 

IF(LAE(1)) 130,80,90 

IF(LAE(2)3) 100,150.110 

IF(LAE(2)) 120,140,140 

PSAItAE=FPFI 

РЗАТАЕ--РЗАТАЕ-ҒРІ/2. 0 

СО TO 150 

РЅАЈАЕ = РЇ 

了 SATIAE 一 PSAIAE 十 上 
РЗАТАҒ--РЗАТПАЕ--БАТАМ(,АЕ(22Л,АЕ(1)) 

CONTINUE 

THETAE=THETAE/RAD 

PSATAE=PSAIAE/RAD 

ІЕСІУУ —15160,150,170 

WRITE( + 180 THETAE.PSAIAE LAE LAED, LAE) 
ЖКІТЕ(6,1800ТНЕТАЕ.РЗАТАЕ І,АЕ(19.1,АЕС22.1.АЕ (3) 
GO TO 200 

WRITE(* .190)THETAE.PSAIAE.LAE(1),LAE(2),LAEC3) 
WRITE(6,190)THETAE,PSAlAE.LAE(1 ,LAE(22,LAE (3) 
FORMAT(3X PARTICELE DISPLACEMENT', 5F 9, 4) 
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190 ЕСОКМАТСЗХ, 'ЕМЕКСҮ FLOW 10X 5F9.47 
200 CONTINUE 


RETURN 
END 
参考 文献 
[1j 冯 元 杭 著 , 李 松 年 ; 蕊 和 中 译 , 连 续 介 质 力学 导论 ;第 二 ,六 
章 ,科学 出 版 社 ,1984， 


(211. 5. Sokolnikoff, Mathematical Theory of Elasticity , 2nd 
ed, ,New York:McGraw-Hill, 1956. 

[3 |В. W. James, Elastic Waves in Crystalline Solids, іп 
Physics Programs ,上 dited by А. D. Boardman John Wiley &. Sons 
Ltd. ,1980. 

[4 ]H. F. Pollard, Sound Wares in Solids, Pion, London, 
1977. 


238 


第 四 章 品格 振 功 


晶 格 振动 是 研究 固体 宏观 性 质 和 微观 过 程 的 重要 基础 . ЯТ ан 
体 的 热 性 . 光 性 .磁性 , 超 导 电 性 .结构 相 变 等 一 系列 物理 问题 ,部 
有 重要 作用 . 

. 中 子 散 射 测量 和 其 它 实验 观察 方法 都 已 证 明 , 与 晶 格 振动 相 
联系 的 点 阵 波 的 能 量 是 量子 化 的 ,其 能 量 量子 为 ho 类 比 于 描述 
光波 的 能 量 量子 化 而 引入 光子 , 人们 引入 声 子 的 概念 . ТЕ ЖН И 
振动 的 特性 对 固体 宏观 性 质 的 影响 对 ,需要 用 到 声 子 色散 曲线 和 
模式 密度 . 虽然 这 是 一 个 应 该 用 量子 力学 处 理 的 问题 ,然而 用 经 典 
力学 处 理 仍 可 得 到 足够 好 的 声 子 色 散曲 线 的 计算 结 采 ， 

要 直接 测量 模式 密度 是 很 困难 的 ,因此 一 般 靠 计算 得 到 . 当 实 
验 给 出 声 子 色散 曲线 后 ,可 以 利用 计算 机 数值 解法 求 得 振动 模式 
密度 . 


54.1 线性 原子 链 


日 格 的 振动 异 具 有 波 的 形式 , 称 为 格 波 . 我 们 先 讨论 一 维 原子 
链 ,因为 它 的 频率 一 波 矢 关系 可 以 解析 地 算得 ,而且 它 也 能 较 全 面 
地 表现 格 波 的 基本 特点 ， 


4.1.1 一 维 单 原子 链 


图 4-1 所 示 的 单 原子 链 可 以 看 作 是 最 简单 的 晶 格 ,在 平衡 时 
相 邻 原子 距离 为 a ( ПАН 28 PE 29 a) t&+A+- JE jl q & A АҒ, 
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质量 为 mw, 并 设 原 子 只 沿 链 的 方向 运动 . 在 某 一 时 刻 与 由 于 热 运 
31, ARTAN I A ETENE, Hotirani ЕХ 
第 1 一 1 第 2 第 2 十 1,… 个 原子 偏离 平衡 位 置 的 位 移 , 第 n 个 

原子 和 第 ?十 个 原子 间 的 相对 位 移 为 小， 
Ô = unsi — И, (4 — 1) 


图 4-1 一 - 维 原 子 链 的 振动 


下 面 先 找 出 由 于 原子 则 的 相互 作用 ;头子 上 所 受到 的 恢复 力 与 相对 
位 移 的 关系 . 设 在 平衡 位 置 时 ,两 个 原子 图 的 相 各 作用 势能 为 区 
(a) , 当 产 生 相 对 位 移 6 后 ,相互 作 几 势能 成 为 Ula 十 6). 将 Ulta 十 
9) 在 原子 的 平衡 位 置 附 近 用 泰勒 级 数 展开 , 得 到 ; 


dU 


Uta +8) = Uca) + (95 | 3 十 МФ 


|а 


(4 — 2) 
式 中 首 项 为 常数 ,第 二 项 为 零 ( 因 为 在 平衡 时 势能 取 极 小 值 }. 254 ó 
很 小 , 即 振动 很 铀 给 时 , 努 能 展开 式 中 可 只 保留 到 他 项 ( 即 取 简 谐 
近似 ), 则 恢复 力 为 
dU 


т — ir — — 


一 了 | 0 =— 7 (4 一 3) 


式 中 的 7= ZEN 称 为 恢复 力 常数 . 


如 果 只 考虑 最 近 缉 原 于 加 的 相互 作用 , 则 第 个 原子 所 受到 
的 总 作用 力 为 
Уи, = u,) — Y(u, — tp) = 0и. + u, , — 2u,) 


(á — 4) 
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HE ,第 # 个 原子 的 运动 方程 可 写成 

mü, = Yi + u, 1-- 2и,) (4 一 5) 
对 于 每 一 个 原子 有 一 个 方程 , 若 原 子 链 有 N 个 原子 , 即 取 a= 1.2 
…, 则 有 个 方程 ,所 以 (4 一 5) 式 代表 着 N 个 方程 组 成 的 线性 
Jr IK J Yad ІК 

| u, = Az ra (4 — 6) 
ХҒМАЯ-БТЕИЯ А ЖаН ае АЛИЯ 
ARR. HERRAD, A 


— ma? = Ye 84-24 — 9] 


= 2Y[ cos qa — 1] (4 一 7) 
ай =— біп! ч | (4 — 8) 
т 2 


(4 一 8) 式 与 AA. ARMU- DAREI N 个 联 立 方程 可 归结 
为 同一 个 方程 , 也 就 是 说 ,只 要 多 与 9 之 间 满 足 (4 一 8) 式 的 关系 ， 
(4 一 6) 式 就 表示 了 联 方 立 程 (4 一 5) 式 的 解 . 通常 把 频率 - 波 先 关 系 
ОП 关系 ) 称 为 色散 关系 . 

ЖЫН ЕЖ, (4 一 8) 式 中 的 每 一 个 gy 对 应 着 土 w(y) 两 个 频 
3. fH iH T o he q 的 偶 国 数 , 只 需 取 正 根 就 足够 了 . 因为 由 9 和 和 一 
(9) 硝 定 的 解 与 由 一 和 wtg) 二 wt 一 g) 确 定 的 解 是 癌 一 个 解 .因此 
(4 一 8) 式 可 以 写成 


б 一 EA 51 
Fri 


£| 4-2 Í w 一 g АНЕ 3 pH k. 
MIREA- 6), ЈН 

Ael ~ m4) = Apae (4 — 10) 
具有 相似 的 形式 ,区 别 只 在 于 连续 介质 波 中 > 表示 波 传播 空间 中 
任意 一 点 ,而 在 (4 一 6) 式 中 只 取 格 点 的 位 置 (x==na, 是 一 列 呈 周 
ИД ЖЕ НЕЗ KeA). 由 此 可 知 , 格 波 解 表示 所 有 原子 同时 做 频率 为 
o 的 振动 ,不 同 原子 之 间 有 位 相差 , 相 邻 原子 之 间 的 位 相 莽 为 ча. 
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(4-- 9) 


142 一 维 布 拉 非 格子 振动 的 频谱 


所 以 格 波 与 连续 介质 波 波 数 g 的 涵义 不 同 , 我 们 注意 到 ,如 果 在 (4 
一 6) 式 中 把 ча 改变 2r 的 整数 倍 , 则 所 腺 子 的 振动 状态 不 发 生 
任何 改变 ,这 表明 qa 的 取 什 下 以 限制 在 下 述 范围 内 ， 


— = < qa < т (4 — 11) 

或 чаж (4—12) 

在 这 个 范围 以 外 的 g 值 ,不 提供 其 它 不 同 的 波 .g 的 这 个 取 值 范 
国 , 称 为 第 一 布 里 泣 区 . 而 对 于 连续 介质 溉 ,9 取 仁 是 连续 的 . 

淮 上 关于 名 格 振动 的 讨论 , 仅 只 考虑 最 近邻 力 的 情形 , BRE 

易 推 广 到 考虑 所 有 的 近邻 力 的 情况 . 现在 考察 作用 在 基 一 原子 ( 警 

如 说 ,处 于 原点 上 的 原子 ) 上 的 作用 力 . 当 第 n + TF B PS t f 

置 的 位 移 为 时 ,所 产生 的 作用 在 此 位 于 原点 的 原子 上 作用 力 为 

f = Y.(u, — to) (4 — 13) 

AF У, У АЕН. ТЕЛА ЕА РРА Ж ЕЗ 

的 作用 力 ,就 是 将 (4 一 13) 式 对 所 有 原子 求 和 ,由 此 得 到 处 于 坐标 

原点 上 党 子 和 的 运动 方程 为 


242 


тїї, = DHAN 一 Ho) (4-- 14) 


а) 


设 试 解 u = Ae em (4 — 15) 
将 其 代入 (4 一 14) 式 ,化 简 后 得 
той == > 2y.(1 — cos qna) (4 — 16) 


如 只 考虑 最 近邻 和 次 近邻 原子 的 相互 作用 , 则 只 有 力 和 AF 
于 10, 而 7 一 7 一 … 一 0. (4 一 16) 式 成 为 


w 一 2-07, + Y, — Ycos (да) - У,сов(2да) | (4 — 17) 
图 4-3 ІШІҢ Г A= 的 情形 . 


9) 


BIULL 
q -p -e т... лиши. лиши. жән. I ..... -......,. M нн. - ӘН — gy — — — -m 


图 4-3 在 最 近邻 和 次 近邻 相互 作用 具有 相等 的 力 
常数 人 情况 下 , 单 原子 链 的 色散 曲线 


4.1.2 一 维 双 原子 链 
一 维 双 原 子 链 可 以 看 做 是 最 简单 的 复式 格子 ,每 个 原 胞 仿 两 
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个 不 同 的 原子 已 和 忽 , 如 图 4-4 所 示 . 相 镶 同 种 原子 间 的 距 次 为 
2а (2а 是 这 复式 格子 的 唱 格 常数 ). РВОТА УН т 
和 M 表示 . 设 原 子 沿 链 的 方 河和 运动 , 仿 离 格 操 的 位 移 用 ……，as， 
xzn:1… 形 示 ;进一步 假设 只 有 最 近邻 原子 国 让 在 相互 作用 ,并 设 
相互 作用 能 可 取 简 谐 近似 ,类 比 一 维 单 原子 链 的 情况 ,可 以 得 到 奈 
地 的 运动 方程 ; 
2л-2 2n—1 дп 2r 十 1 2п+2 
DO O ° 


За 一 一 


图 4-4 ERAT 
P BT mu = (ири, 1 24) 
Q TAF müna, =Y tnp 20а) 
这 是 两 个 典型 的 运动 方程 , 当 原 子 链 包 含 МАМЕ (HL 8 N + P 
MTA N 个 Q@ 原子 时 ), 它 实际 代表 2N 个 方程 组 成 的 联 立 方程 
组 ,有 如 下 形式 的 格 波 解 : 


= i[e< 9520d3 : 


“.- 


(4—18) 


p | (4—19) 
му Вей“ 462и-Ғ12а ` 
A 各 8 分 别 是 这 两 种 不 何 原子 振动 时 振 幅 . 
把 解 (4 一 19) 式 代入 运动 方程 (4 一 18) ,得 
— mwt A =Y leye г “УВ--2УА 
(4--20) 


— MA N =Y (e+e У)А-2УВ 
此 两 式 红 与 无关 ,这 表明 (4 一 18) 式 代表 的 2N 个 方程 通过 格 波 
形式 的 解 (4 一 19) 就 简化 为 一 对 方程 . (4 一 20) 式 可 以 看 作 蚌 以 振 
ШШ А,В 为 变量 的 线性 齐 次 方程 组 , 它 有 解 的 条 件 是 A.B 的 系数 
行列 式 为 0, 即 
той — 2Y 27сов да с са 91) 
2Усов да Мау — 27 
НІН 
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1 1 1 1 1 2 Авіп га 1/2 
Е Н ДЕЕ и ld) 
(4- 22) 
改写 上 式 为 
ш? 一 0 + (1 一 сѕіп2да)!?) (4:5. 222 
тет, Р аре (4-24 
° т М 
еМ 2 40 _ т 


Tm MF to Со = 57) (4-- 25) 


通常 称 c< 为 回合 系数 . 表示 (4 一 23) 式 的 色散 曲线 示 于 图 4-5， 


图 4-5 “一 维 双 原子 复式 恪 子 的 振动 频谱 


245 


上 面 颖 率 较 高 的 一 支 称 为 光 频 支 ! 下 面 频 率 较 低 的 一 支 称 为 声 频 


D E 小 | l _, /2 СН р. 
ка. БАШ; ДЫ Р ЕЕ © rair 
比较 (4 一 23) 和 (4 一 17) 式 可 知 ,; 当 mm 一 MM 时 ,上 述 双 原子 链 


问题 将 过 滤 到 单 原子 链 情 形 . 初 看 起 来 ,两 者 的 色散 曲线 (图 4 一 5 
和 图 4 一 2) 似 乎 差别 很 大 ,但 如 注意 到 双 原子 链 的 蝇 格 常数 为 24， 
第 一 布 区 只 有 单 原子 链 的 一 半 , 则 这 差异 就 可 解释 ,在 w= 二 MM 的 
极限 情况 ,图 4-6 中 上 部 虚线 分 别 是 由 庆 << — 2 о 


一 元 的 布 区 “ 折 共 过 来 ”的 。 


— m. 
“-.. 
` 
м 


Í 


^ 


БОАБ сы =н е мешз ы иы ы ашы ырны рына рыр ын Ее М 


зім EE s 


图 4-6 Жл=М НЯ. << АК 
人 为 “ 折 得 过 来 "的 示意 图 
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54,2 -.ЖЕЙ ЖАЙЫ) 


上 一 节 讨 论 了 一 维 卓 格 振动 ,本 节 将 讨论 三 维 晶 格 振动 , 且 仍 
然 从 简单 格子 开始 . 


421 三 维 简单 格子 


IRB E K 0 а, аа, ЕЛІҢ АҢ N N, N, 个 原 胞 ， 
因此 整个 唱 体 共 有 N= 二 NN,' N, + N, CRE АУЕ ИВ, Bp 
个 原 胞 中 只 有 一 个 原子 ,质量 为 m. 

& uu. 表示 第 1 个 原 胞 中 位 拓 为 R, 的 原子 离开 平衡 位 置 在 a 
па (а= 1, 2,8: R Па; 十 zzgz 十 1303 小， їн К. 3⁄ BE U 是 原 
子 位 置 的 畏 数 , 当 原 子 仿 离 平衡 位 置 时 ,系统 势能 将 由 U, ÆA U, 
将 系统 的 势能 在 平衡 点 附近 用 泰勒 级 数 展 开 , 并 取 平 衡 位 置 的 势 
能 作为 能 量 零 点 .在 简 谐 近似 下 ,势能 可 与 为 


3 
U = У) > Dur „ви, „ир, в (4 — 26) 
i. а. 
те Pir „а = (4-- 27) 


称 为 恢复 力 常 数 , 它 表 示 第 7 ТЕТІ ЖЛЕ R, BJA T а 方向 
移动 单位 距离 L RR ETRE PRE 包 的 原子 沿 8 方 同 移动 
单位 距离 所 引起 的 品 体 势 能 的 变化 。 
对 应 的 馈 复 力 为 
- уе, инв Са = 1,2,3) (4-29 


ERRAL ШТІ! R. 的 原子 沿 a 方向 运动 u., 所 受到 的 
2. 
атаға зат ЖМ ТЕН: | 
лїї; e 一 一 У) Б} Ф, astir (4 == 29) 
г 8 
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其 格 波 解 可 写 为 
и = Ае 6 (4 -~ 30) 
它 形 示 贡 方向 传播 的 平面 波 . 品 的 具体 形式 与 晶体 结构 有 关 . 
为 便于 推广 到 每 个 原 胞 中 含有 多 于 一 个 原子 的 情形 ,引入 
一 个 亲 的 参量 


1 
В, шом? ДА, (4— 31) 
ІҢ(4--2З04154- ОЖ АЗ (4-20), Ж4Ң Ж! 
“В, = 7) УуФ е “е B; (4- 32) 
f Ë 


出 于 后 体 中 原子 排列 具有 平移 对 称 性 ,可 以 证 明 Dira tE Ж 2 和 
第 了 两 个 原子 加 的 距离 |Re 一 RR | 有关, 故 上 式 可 改写 为 


; 3 ` 
«В. = YDB; (e= 1,2,3) (4 — 33) 
8 
AT 
Do = > УФ екрС— {+ (В, — RDJ (4—34) 
жағы 


称 为 动力 学 矩阵 .在 品格 振动 研究 中 , 它 是 一 个 重要 的 物理 量 . 上 
z ti nj РЕ А АА 
АРВ = DB (4-- 35) 
方程 (4 一 33) 只 对 实 的 w 有 和 解 ,对 于 线性 齐 次 方程 组 (4 一 33), 得 
到 非 零 解 的 条 件 是 
det [Du — w a| = Ò (4 — 36) 
或 
det|D — wf | = 0 (4 — 37) 
式 中 工 为 单位 阵 . 上 两 式 就 是 熟知 的 久 期 行列 式 . 
对 于 简单 格子 情形 ,当选 择 波 矢 9 沿 对 称 方向 时 ,(4 一 27) 式 
的 解 ( 中 振动 的 正则 模 ) 对 应 于 一 支 级 波 和 两 支 模 波 ,而 且 它 们 常 
Ж Жж ЭИ. 


248 


4.2.2 体 心 立方 (pcce) 点 阵 的 动力 学 息 阵 


要 进一步 计算 动力 学 矩阵 (4 一 34) 式 ,就 需要 知道 所 研究 的 点 
阵 类 型 和 对 应 的 腐 复 力 常数 . 下 面 我 们 考虑 点 阵 常 数 为 2a ЖО 
立方 点 阵 ; 此 时 第 !' 个 原子 的 位 和 拓 可 表示 为 

R, = 2ali 十 2а + 2at,k (4 — 38) 
ЯН L 要 么 都 是 奇 整数 ,要 么 都 是 个 整数 

为 简单 起 见 , 设 原子 间 力 常数 只 与 两 原子 之 则 的 径 向 距离 有 
关 , 且 只 考虑 最 近邻 的 和 次 近邻 的 相互 作用 . 如 以 7 表示 最 近邻 力 
常数 ,以 R 表示 次 近邻 与 最 近邻 的 力 常数 之 比 , 则 次 近邻 力 常数 
为 RY. 

令 边 长 为 24 的 立方 体 中 心 的 原子 编号 为 0, 它 的 八 个 最 近邻 
原子 位 于 立方 体 的 项 角 上 , 且 均 沿 着 (111) 方 向 ,如 图 4-7 所 示 . 从 
(4 一 28)? 式 可 知 , 一 gw .so 是 第 了 个 原子 在 有 方向 移动 单位 距 准 后 ， 
作用 在 沿 a 方向 运动 的 第 0 号 原子 上 的 力 ,将 其 简 记 为 一 和 ,4 

首先 考察 在 f111] 方 向 的 普 子 1 ,不 论 它 在 xz,y; 或 x 任 一 方 癌 
移动 单位 距离 ,其 在 原子 0 和 1 的 连 线 上 的 位 移 径 向 分 量 和 甬 为 

1. т -У оу 
“ғр 当 只 考虑 径 向 力 时 ,作用 在 第 0 号 原子 上 的 力 是 7 所" 区 过 
来 ,将 айығады z 方向 的 三 个 分 量 ,算得 这 些 分 量 为 下。,， 


= Е, F. = =. 由 于 原子 1 zyz 任 一 方向 发 生 单位 位 移 


时 ,在 第 0 号 原子 上 产生 的 力 部 是 — Kt m,y, z 每 个 方 问 的 


分 量 都 是 立 . 所 以 ,对 于 所 有 的 “和 0, —Ф =S kt 


) 1 1 
-Ф-- 57|1 l 1 (4—39) 
111 
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图 4-7 tih ARNAR. 
并 示 出 右边 卓 胞 中 心 原子 的 所 有 最 近邻 和 次 近邻 原子 . 
(ҚОН АН ЗА КІН ЗІҢ Аы у, 
在 [1 1 11 方 向 的 原子 5, 有 完全 相同 的 结果 , 亦 即 
- Ф, =— Ф, (4 — 40) 
对 于 其 余 沿 [111],[111] 和 [I11] 方 向 的 原子 2,3 和 4, 以 及 在 根 
反方 向 与 它们 对 应 的 原子 6,7 和 8, 分 别 有 


І жї к=] 
-Фе--Ф%-47|-і 1 1 
Se 1 1 
L ==] 1 
— Ф, = — Ф, = —7| — 1 1 i (4- 41) 
І ==] 1 


1 l —1 
— Ф, = Ф, = +” 1 } ) 
= =] 1 
.有 6 个 次 近邻 原子 (二 9 至 14) 位 于 边 长 为 4a 的 六 个 面 上 . 
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如 将 位 于 zz 方向 的 原子 9 说 z 方向 移动 单位 距离 后 ,作用 在 第 0 
号 原子 上 在 xz 方 向 的 分 力 为 RY, 由 于 只 存在 径 向 力 , 对 第 0 号 原 
子 的 垂直 位 移 设 有 影响 , 因此 非 零 的 矩阵 元 只 有 6 个 ,它们 分 别 是 
一 Øra = — Pir = — Piy 一 一 Pias 

=— көтере Pun = RY (4 — 42) 

最 后 计算 3,, 即 第 0 号 原子 移动 单位 距离 后 作用 在 本 身上 的 

力 . 因为 第 0 号 原子 沿 上 方向 移动 单位 距离 等 价 于 所 有 近邻 原子 
沿 ( 一 x) 方向 移动 单位 距离 ,此 过 程 使 最 近邻 的 八 个 原子 在 第 0 


导 原子 上 产生 作用 力 一 污 ; 在 次 近邻 的 6 个 原 于 中 ,只 有 原子 9 和 
12 产生 作用 力 一 2RY, 由 此 得 到 
8 


二 
ы 3 (4 — 43) 


Ф,.., == 0, жЕ Ф... == 0,8% 


于 是 
1 0 4 
-和 = 一 27| 和 十 R 0 1 0 (4 44) 
0 0 1 
下 面 计 算 动 力学 矩阵 D. 由 于 已 选取 ! 一 0, (4 一 34) 式 成 为 
Га = > Le, декрС—- а - К.) (4 一 45) 


以 计算 ар, М 4-7 可 知 ,来 自 原子 1 和 原子 5 的 贡献 是 
_ 37{exp[— ilga + qa + q.a)] 
+ exp[i (qz + g,a + q.a)]) 
来 名 原子 2 和 原子 6 的 贡献 是 
-- іу exp[ — ІС- ғ.а + Фа 十 God) 
+ ехрГС- gia + Фа + а-а 21) 


来 目 原 子 3 RET? 的 贡献 是 
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E Y {exp[- {Саа — дуа + q.a)] 


+ ехр (а,а — q,a + q.a)]) ; 


KEF 4 和 原子 8 的 贡献 是 
a #7 {exp[ — {Саа + q a - 4.а21 
+ expli (q.a + q,a — д.а) }}; 
来 自 原 子 9 和 原子 10 的 贡献 是 
一 RY[exp(— iq. • 2а) + ехр(а, • 2а)]; 
来 自 原 子 0 的 贡献 是 
3 
у! 5 
2 | + к). 
因此 
ЖЕ кен. РЕЯ а «сов g.a = cos д.а 
Ген бон 3 9. dy 4; 
一 Ксов 24,4 + 3 -- к (4 — 46) 
用 上 述 方 法 ,可 得 到 五 的 其 余 矩 阵 元 ,例如 
D., = D, = Ž Ysin 4а ° sin gA + cos д.а CA — 47) 
引入 符号 : 
C, = cos д,й, 5, = sin 0,4, Cs = cos 24,6 
8 = 1+ + — С,С,С, „шш 
将 它们 代入 DDD; 等 ,就 可 将 动力 学 矩阵 表示 为 
, Ž RC. 55. S.C.S. 
_ 87 _ 3 
Dig) = api 9,9,С, б д КС», Cus, 
S.C,S. CSS, 8— 2С, 


(4 一 49) 
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1.2.3 有 源 胞 中 有 两 个 不 同类 型 原子 时 的 动力 学 矩阵 


对 于 每 个 原 胞 中 含有 多 种 燃 型 的 麻子 的 傅 况 ,应 对 原 胞 中 的 
每 个 原子 都 列 出 三 个 运动 方程 . 

如 果 不 计 原子 类 型 ,依次 标注 所 有 的 原子 , 则 力 稍 数 惩 阵 的 形 
式 应 与 以 前 讨论 的 篇 单 格子 情形 相同 , 计 及 原子 类 型 时 ,就 要 对 力 
常数 矩阵 Ф, ЕНЕ ОВЕ m 和 振幅 В 标注 出 原子 的 
类 型 . 

设 每 原 胞 中 包含 个 不 同类 型 的 原子 , (4 一 31) 式 应 改写 成 下 
面 形 式 : 

, Bls) = m! ACs) (4 — 50) 
同时 (4 一 34) 武 也 应 改写 为 
065.53 = бт,т,) т Фа. )exp(— 44. R, ) 


(4 -- 51) 
式 中 * 和 ss 标志 在 原 胞 中 的 1 个 不 同类 型 的 原子 . М ЖЕЕ БІЛ 
(4-33 2 БАҚЫ | 
w BC) = D.s) BE) + У Рб.) BG! 人 一 12 
м, 


(4 一 52) 
类 似 于 (4 一 357 式 ,还 可 将 (4 一 52) 式 写成 更 紧凑 的 形式 : 

«6 = D 26 (4 — 53) 
式 中 D' 是 一 个 aX 3n ИНЕ. B. — A 5 X BL, ИЖ Ж B. 


(12.В,(10.В,(12.В,522.В,(2)-%%: B. (n). 
再 往 下 进行 计算 时 ,就 要 求 给 出 点 阵 的 类 型 . 一 个 原 胞 中 含有 
两 个 不 同类 型 原子 的 最 常见 的 岂 体 是 CsCl 结构 ,Cs 离子 处 在 立 
方 体 中 心 ,Cl 离子 处 在 立方 体 八 个 顶 角 上 反之 亦 可 ), 如 图 4-7 
所 示 ( 此 时 空心 点 代表 CI 离子 .实心 点 代表 Cs 离子 ), 与 4.2.2 中 
讨论 的 情形 类 似 .假设 所 有 原子 间 相 互 作用 力 均 是 径 同 的 , 叉 设 两 
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种 原子 的 力 常 数 均 相同 ,这 样 就 只 需要 考 锚 两 种 原子 质量 的 差别 . 
力 常数 矩阵 到 除了 它们 必须 标注 原子 类 型 外 , 同 4. 2. 2 有 同 

样 的 形式 . 最 近邻 8 个 百子 与 中 心 原子 的 耦合 是 在 异种 原子 (CI 一 
Cs) 之 间 发 生 的 ,而 次 近邻 的 6 个 原子 与 中 心 原子 看 合 是 在 同 种 
原子 (Cs 一 Cs 或 Cl 一 Ci) 之 间 发 生 的 . 类 似 于 在 4. 2.2 的 讨论 ,得 
到 有 些 矩 阵 元 将 为 0, 如 

Ф,(1,1) = Ф(2,2)=0, 1 = 1 — 8; 

Ф, (1,2) = Ф, (2,1) = 0, Г = 9 -— 14; 
关于 ,由 于 前 已 假设 原子 间 相 互 作用 力 是 径 向 的 , 故 有 Ф(1,2) 
=Ф„(2,1)==0. 类 似 于 (4 一 43) 式 ;又 可 写 出 Ф,(1,1) =Ф,(2,2) = 


{ 了 7 十 27R 
今 质 量 比 ш 并 引用 (4 一 48) 式 的 符号 ,得 到 CsCl 型 结构 
的 动力 学 
D' (4) = А Pimm) 
六 去 (] + 7,) 0 0 
0 р 261+ 7,) 0 
0 0 б +414 2,)! (а 5а) 
— CCC, S,S C. S,C.S, 
S.S,C. . CEC. CS5. 
5.С,5, С,8,5, =. 
式 中 
m= ZRA — C,,) 
ылы „б (4-55) 
3 4У 
Y = зға — C.) 


254 


94.3 ШИНА 


ЗВЕНШИНАДЕН-РЛЕЖ. ЕНЕ 
ЮФУ, РАА ЕКЕ, É 21| 34 6 2 ñ Yë le 
动 模 的 求 和 。 此 外 ,在 讨论 蝇 体 的 某 些 电学 和 光学 性 质 时 ,也 要 用 
到 晶 格 振动 模式 密度 函数 ， 

蝇 格 振动 的 模式 密度 ,也 称 为 频率 分 布 陋 数 ,以 p(w) 表 示 . 原 
则 上 讲 , 只 要 知道 了 品格 振动 谱 w(9), 就 知道 了 各 个 振动 模 的 频 
率 ,模式 密度 函数 也 随 之 确定 . 对 具体 晶 格 而 言 ,w 5 q 之 间 的 关 
系 相当 复杂 ,很 难 用 解析 方法 得 到 ,一 般 是 借助 数值 方法 计算 ,图 
4-8 中 给 出 了 计算 的 草 体 铜 的 模式 密度 . 


р(о) ЕУ | 


Та с 
t 


` 


` 
e чина p —.. Ж... А Q. қона w w a s w w ms m парша 


N 


іл 


0 | 2 3 4 
wí І0%5-:) 


4-8 КЕМЕЛЕРІН КС 
用 数值 方法 计算 模式 密度 ,首先 是 计算 q 空间 的 状态 密度 p 
(q) ,然后 变换 为 以 频率 为 变量 的 模式 密度 рош). 故我 们 多 讨论 9 
空间 的 状态 密度 ,再 讨论 弄 式 密度 . 
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1.3.1 波 矢 空间 的 状态 密度 


在 4.1.1 计算 一 维 链 时 ,假设 了 链 是 无 限 长 的 ,而 实际 的 链 是 
有 限 的 . 因为 边界 上 原子 所 处 的 环境 写 内 部 原子 不 同 ,其 运动 方程 
也 不 一 样 . 由 于 所 有 不 子 的 运动 方程 是 互相 关联 的 ,这 种 边界 和 和 内 
部 的 不 一 致 ,就 使 解 方程 工作 复杂 化 . 为 了 避免 这 种 情况 , 玻 恩 - 卡 
门 提出 了 周期 性 边界 条 件 , 即 用 包含 N 个 原 胞 的 环 状 链 作为 一 个 
有 限 链 的 模型 ( 见 图 4-9). 它 包含 有 限 数 目的 原子 ,然而 链 上 的 所 
有 原 胞 完全 等 价 . 当 N 很 大 时 , 环 的 半径 很 大 , 沿 环 的 运动 仍 妇 可 
以 看 作 是 直线 运动 ,以 前 的 运动 方程 仍然 适用 . 和 以 前 的 区 别 只 在 
于 必须 考虑 到 链 的 循环 性 ,也 就 是 说 对 于 第 个 原 胞 和 第 n 十 N 
个 原 胸 ,其 振动 情况 完全 相同 . 从 格 波 解 (4 OATH AERE 


四， 
оОоосааооооо99% 


е, с Су r ғ 


49 EERE -EARRA 


и. — И. км (4 -56) 

ИП е 9 1 (4 — 57) 
ДЯ Маа Ж 2л JE КАИН › А ПІ EE ЖҰТ РТА 

Маа = Әлі (L HEY) (4 — 58) 

但 g= =F] (4 — 59) 


AF LEEK (4 59) 式 说 明 波 矢 q 取 值 是 均匀 分 布 的 ,其 间隔 
DF Eg 空间 的 单位 间隔 内 ,gq SANE E Е — ЕН ,q 


空间 的 状态 密度 是 苑 . (4 ”12) 式 已 指出 а 的 取 值 范围 是 由 一 到 
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到 一 ,所 以 对 于 由 N 个 原 胞 组 成 的 链 ,9 可 以 取 N 个 不 同 的 值 
在 三 维 情形 ,由 于 边界 条 件 的 限制 ,q 也 只 能 取 某 些 分 立 值 
将 对 应 的 玻 恩 -卡门 同期 性 边界 条 件 应 用 到 三 维 的 情形 ,得 到 


qN a, = дк, 
4/У,а; т дк; (4 7 60) 
4М,аз = 2лй, | 


式 中 а,,а,,а, ЖАНА №, No N, W = 4 3: Jr P] BJ Ea Bi 
ОЗА ЖАН N= N. ` N. ° Nih hi h, 为 整数 . 

另 一 方面 ,可 以 把 & 看 成 是 9 空间 的 一 个 矢量 ,而 边界 条 件 多 
ВУ а 值 将 表示 为 这 空间 中 的 点 子 , 如 将 & 空间 以 倒 易 矢量 b, 
bab, 为 基 和 天 来 标 度 , 即 4 可 表 为 

q = tib, + tb, + tb, (4 — 61) 
将 上 和 式 两 边 先 后 分 别 点 乘 aaa, A A ађ, = 279,30 4 — 60) 
式 ,就 得 到 下 而 各 式 
Ма А.М, = hz Nati = й; 


й, h h, 
РИД sti = N, i Из р 


104 s= Бур, | (4—62) 
此 式 表 明 ， жин a 值 在 空间 是 一 些 问 隔 分 别 为 迪 ,也 a, 


全 的 均匀 分 布 的 点 子 ,每 个 点 在 g 空间 所 占 的 体积 为 


Е Б. міз _ 


因为 倒 格 子 原 胞 体积 2° 与 正 格子 原 胞 体积 0 之 间 有 如 下 关系 : 


oq. = PZL 由 此 得 到 三 维 情况 下 边界 架 件 允 许 的 g 代表 点 在 
кила 
V, 


AP V. Жан ЙИҢ. 
同 理 可 得 在 二 维和 情况 下 ,9 空间 的 状态 密度 


ра) = са | (4 — 65) 
Ат ЖЕЛІНІ. 
4.3.2 模式 密度 的 一 般 表 达 式 及 特例 


在 处 理 固 体 物理 问题 时 ,更 常用 的 是 以 频率 为 变量 的 模式 密 
Ж plw), 它 定义 为 ;在 频率 o 附近 ,单位 频率 间隔 内 的 模式 数 . 在 
单 频 支 情形 ,对 & 空间 取 频 率 为 w оао 的 两 个 等 频率 面 , 则 
КІН ЗЕН ЕБМЕН Ас 内 所 包含 的 振动 模式 数 等 于 plq) 
44-х0(02Ағ” BA 


V. Р ү. 
ptwdw= рбд) Ar" = m): “ Ar Е 20 [ИРУ (4—66) 


如 图 4-10 所 示 , 令 dss A q 空间 内 
等 频率 面 w 上 的 一 个 面 元 ,cg 为 
垂直 于 此 面 元 方向 壳 层 的 厚度 , 即 
两 个 等 频率 (w 和 w 十 dw) 面 间 的 垂 
AEK WMA 4а. = |V elde, 以 在 
等 频率 面 o 和 о ао Z [8] А ДЕ 
ds Pi dy 的 直立 圆柱 体 作 体积 
元 ,代入 (4 一 66) 式 ,得 到 


v. | 
pla) do = yi gy 45-44. 图 4-10 等 频 面 示意 图 


V, J ds deo 
= (2л) жа |Y ¿o| (4—67) 
由 此 得 到 模式 之 度 
Ж (15, 
р(ш) == Ory ТУ е] (4 — 68) 


一 般 而 言 ,色散 曲线 有 多 个 频 文 ,总 的 模式 密度 要 求 将 (4 一 68) 式 
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对 各 频 支 j 求 和 , 即 
ба (а) = 2,0,0 (4- 69) 


下 面 先 以 一 维 单 原子 链 为 例 ,具体 求 出 (4 一 68) 式 中 plw). 设 
о ЖП о-Ғав 之 间 的 模式 数 为 
рса) до = 2р0а)4д (4 — 70) 
因子 2 的 出 现 是 由 于 ww 总 是 取 正 值 ,而 在 4 空间 十 9 和 一 9 的 p (q) 
值 都 对 应 于 同一 个 оф). 
(4 一 ?0) 式 可 改写 为 


plw) = 20(4) 44 (4 -- 71) 
对 于 一 维 音 原 子 链 ,振动 的 色 艇 关系 为 (4 一 9) 式 ,由 此 得 
= So. 1- si = 5-00 — и? у? (4 — 72) 


式 中 onma] 故 一 维 单 原子 链 的 模式 密度 
— ут (4- 73) 

而 在 三 维 傅 形 ,从 (4 一 68) 式 可 知 ,计算 模式 密度 时 ,必须 对 9 
空间 的 一 个 等 频率 面 作 1Yw1 :的 积分 . 一 般 说 来 这 是 无 法 做 到 
的 ,通常 是 用 一 种 叫做 “ 根 抽样 "的 数值 方法 进行 计算 . 此 方法 是 通 
过 在 布 里 洲 区 的 大 量 点 中 找 久 期 方程 的 根 ,来 计算 模式 密度 . 如 前 
所 述 ,gq 的 允许 值 是 均匀 分 布 的 , 故 最 简单 的 途径 是 遍及 q 空间 的 
一 个 个 立方 网 格 点 ,求解 久 期 行列 式 ,以 画 出 频率 分 布 图 . 

对 一 维 情形 ,从 前 面 讨论 可 知 ,只 需 计 算 第 一 布 区 中 十 的 频 
率 分 布 即行 了 . 对 三 维 简 立方 点 阵 情况 也 一 样 ,不 需要 计算 整个 布 
区 ,只 需要 考虑 q..q, fl q. 的 正 值 ,这 样 就 只 需要 计算 第 一 象限 ; 
此 外 利用 对 称 性 又 可 进一步 减少 计算 量 : 因 为 立方 点 阵 的 z,y 和 
z 方向 等 价 , 故 只 需 考虑 第 一 象限 中 的 亏 部 分 ;注意 到 (110) 面 有 
镜面 对 称 ,这 又 将 布 里 洲 区 的 单 值 部 分 分 成 两 半 , 只 须 取 其 中 一 
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p (e) = 


半 , 由 此 可 知 ,最 后 只 要 计算 整个 布 里 洲 区 的 去 х 2 х= т. 


行 了 ,也 就 是 说 ,只 需 计算 在 [100]， поп] > mm 
ДМ ‚ЕГ ЖУ An НЕ , ГА 4-11 所 示 . 


4-1" 简 立 方 点 阵 的 不 可 约 棉 


最 后 补充 一 点 ,对 于 bec 点 阵 ,[L111J 方 向 的 色散 曲线 在 第 一 
布 区 边界 之 外 没有 重 复 , 而 在 二 倍 布 区 距离 后 才 重 复 . 其 原因 是 
《111) 平 面 是 密 堆 面 ,能 维持 很 短波 长 的 波 ( 即 大 的 波 矢 }. 然而 这 
些 波 矢 并 不 在 第 一 布 区 内 ,但 用 减 一 个 L110j] 倒 格 矢 的 方法 , 它 能 
被 反射 回 第 一 布 区 , 事实 上 , 它 在 连接 [1 11141001 1514%% 649 
fi H f X iB Б. 


4.3.3 % + 39 (Van Ноуе AE 


从 t4 一 68) 式 可 以 看 出 ,在 ободу д 的 梯度 为 0 的 地 方 ,p(w) 
显示 出 奇异 性 , 称 Y,w=0 的 点 为 范 。 和 二 夫 奇 点 (Van Hove Singu- 
larities) , №, ПЦ Д. 

№. (4—72) ЖЕ HP оо, Ж —1 Р. 再 看 图 4-2, BJ 
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见 , 此 点 正好 企 布 里 渊 区 边界 上 ,图 全 3 上 的 点 处 亦 为 奇 氮 , 央 


EITE 92=0 

利用 图 4-5 的 一 维 双 原 子 
链 色散 曲线 wla). ІНЕН 
的 频谱 曲线 оса ,如 图 4-12 
所 示 . 由 图 可 知 ,在 色散 曲线 的 
临界 点 , 即 斜率 只 一 0 处 ,在 频 
НН p(w) 的 相应 处 就 出 现 
奇 点 , 即 模式 密度 趋 于 无 穷 , 在 
ЕЖ обо) Н 591, IF Р 
支 ,这 些 奇 点 产生 在 布 区 边界 
К-Т РА тағ 
支 产 生 在 布 区 边界 和 中 心 (a 
= Гау »=У[ >+}. 

对 于 实际 的 三 维 晶体 , 模 
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4-12 一 维 复 式 格子 的 频谱 


式 密度 函数 曲线 上 出 现 一 些 尖锐 的 峰 和 和 任 率 的 突然 变化 ,如 图 4- 
8 所 示 . Е Е ВЗЕЛА С АКТАЛ У БНА Ў ААН АУ. 临界 
А PF f IEA K ЕА tH Pü ДЕТ E WH PC ВУ ЖОК ар FF 5 
E. ñ (K 83 š АМЕ ЖОН ЧЕ PU B tia ЛЕНГЕН. На RRG + tt 


Š 4.4 立方 点 阵 的 色 敬 曲线 
和 状态 密度 的 计算 


程序 4-1LATDYN 和 是 根据 表述 公式 编制 的 计算 程序 . 对 于 单 
原子 体 心 立 方 点 阵 的 简单 格子 ,第 一 ,第 二 最 近邻 力 常 数 之 比 取 
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0. 8 的 计算 结果 示 于 图 4-13. 从 图 可 见 ,色散 曲线 分 三 支 , 对 应 于 
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图 4-13 Ip Tik ЎН (Ро Яо а ІҢ (а. ӘБЕН 
ІҢ (4.23. DOS ХІУ. 
CaCO] m a. LLLA A s LLL 155 1 
(4) = + IR ИНАБАТ БУ. ЈЕ ПЯ (e) 
BREER 


三 个 偏振 模式 (一 个 纵波 ,两 个 模 波 ), 在 [100] 和 [111] 方 向 ,第 1 
和 第 2 两 支 发 生 简 并 . 对 于 双 原子 CC 点 阵 的 复式 格子 ,在 第 一 、 
第 二 最 近邻 力 常数 之 比 取 0. 2, 两 类 原子 质量 之 比 取 0.5 时 的 计 
算 结果 示 于 图 4-14. 此 图 表明 ,色散 曲线 由 六 个 频 支 组 成 ;三 支 声 
频 支 ,它们 对 应 于 原 胞 质心 的 振动 , 当 9-*0 时 ,wm-*>01 三 支 光 频 支 ， 
它们 与 原 胞 内 不 同类 原子 间 的 相对 振动 相 联系 , 当 9->0 时 ,w 并 
不 趋 于 零 . 有 时 .有 两 个 或 多 个 频 支 的 色散 曲线 发 生 简 并 . 从 图 4 
ІЗ 和 图 4-14 可 见 在 状态 密度 曲线 上 ,有 一 些 范 。 霍 夫 临界 点 , 它 
们 是 状态 密度 曲线 的 奇 点 ,这 些 点 与 色散 曲线 的 他 一 0 处 相对 应 ， 
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图 4-14 HIETE ССІ Яр Е-0.2.2-0 5) ЈЕ HZ ub со 30 3F 25 
密度 曲线 (de).w 和 TDOS W E F X Y f 
(a)(100] rí], (9211101770. 0111] (8 
Cd) 三 个 偏 探 镜 式 的 分 状 碍 密度 ,从 下 至 上 分 别 为 低 . 中 、 高 统 正 则 模 . 
(г) ЖЕ Я 


程序 4-1 声 子 色 散曲 线 与 
状态 密度 的 计算 


a ЖА 名 LATDYN 


二 ,功能 


输入 原 胞 中 的 原子 数 ,第 一 .第 二 最 近邻 力 常数 之 比 ,以 及 双 
原子 品格 的 两 种 原子 质量 之 比 ,计算 体 心 立方 结构 的 简单 格子 和 
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CsCl 结构 的 复式 格子 的 声 子 色 散曲 线 和 状态 密度 曲线 . 
к. 


1. 对 于 单 不 子 体 心 立 方 点 和 阵 的 简单 拱 子 ,将 输入 的 第 一 ,第 二 
最 近邻 力 常数 之 比 代 入 (4 一 49) 式 ,计算 沿 [100],5110j] 和 [il1j 方 
向 给 定 波 儿 gq 的 动力 学 矩阵 D(q ,建立 和 久 期 行列 式 (4 一 36), 解 
得 在 此 三 个 方 铅 对 应 各 波 矢 q 的 特征 频率 , РЕЖЕ Ы, 
分 别 输 出 一 组 特征 频率 - 波 矢 数据 , 供 绘 色散 有 曲线 图 用 . 对 于 每 个 
方向 ;有 三 个 频 支 ,各 对 应 于 一 种 偏振 模式 . 按照 (4 一 68) 式 ,对 于 
每 一 频 支 ,分 别 计 算 各 个 偏振 黎 式 的 分 状态 密度 ,然后 按 (4 一 69) 
式 计算 总 状态 密度 . 输出 分 状态 密度 -频率 利 总 状态 密度 -频率 的 
数据 供给 状态 密度 图 用 . 

2, 对 于 双 原 子 CsCl 点 阵 的 复式 格子 ,采用 与 单 原子 停 必 立 方 
点 阵 的 简单 属 子 的 相同 途径 ,计算 并 箱 出 对 于 上 述 三 个 方向 的 色 
散曲 线 .分 状态 密度 曲线 和 总 状态 密度 曲线 . 所 不 同 的 是 要 输入 两 
种 原子 质量 之 比 , 动 力学 矩阵 用 (4-547 式 代 蔡 (4-497 式 . 由 于 是 双 
原子 复式 格子 ,动力 学 矩阵 是 6X6, 而 不 象 单 原子 简单 格子 那样 
是 3X3. 对 于 每 个 方向 的 状态 密度 有 6 个 频 文 而 不 是 3 个 . 


四 .流程 图 4-1 


+ 为 输入 变量 ;十 为 输出 变量 ， 
IDCXSC" ,IDCYSC* ;所 绘图 形 的 横 轴 和 纵 轴 的 标 度 , 取 值 大 时 ， 
相应 的 图 也 大 ., 对 于 色散 曲线 (w 一 图 ), 取 2IDCXSC 
- 一 ‚ТОСҮЗС =. IDCYSC 应 取 3 的 倍数 ,以 方便 
于 作 三 个 偏振 模式 的 状态 密度 图 . 通常 取 IDCXSC = 
25 ,IDCYSC=75. | 
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IATOMS" ;固体 物理 学 原 胞 中 原子 的 数目 . 对 于 单 原子 bee 结构 
为 ҺА ЫЫ ОСІ 结构 为 2. 

R* :第 二 近邻 和 最 近邻 的 原子 癌 力 稼 数 之 比 .及 之 0. 

RO”: 双 原子 镶 格 的 两 类 原子 质量 之 比 p. 1:>ЕО:>0. 

]:; 声 子 色 散曲 线 的 支 数 .]= 固 体 物 理学 原 胞 中 原子 数 X 维 数 , 所 
以 ,对 于 单 原 子 bcc 结构 ,J==3; 对 于 双 原 子 CsCl 结构 ， 
J= 6. 

IDIR: 立方 格子 的 三 个 高 对 称 方 网 , 工 为 [100],2 为 [110],3 为 
[111]. 

INT1+ ; INT27 ,INT3+ ;分 别 为 在 [100],[110] 和 [£111] 方 向 波 矢 
q 取 点 的 数目 ， | 

INTP;IDIR=1,2,3 时 ,INTP 分 别 为 INTI ,INT2,INT3. 

K;K=1,INTP.:x q 空间 各 网 格 点 取 点 时 的 循环 变量 ， 

ОХ,ОҮ,02,# х,у, J ik k q 的 分 量 .单位 为 二 ,a 是 最 近邻 


БЕГІНЕ F CsCl 结构 ,最 近邻 原子 是 Cs-Cl ЈА 
ў. 

W(IDIR,L,D.WP(L)' ШЕ = 1,3;1.=1,1;1=1.1МТР. 是 在 
IDIR 方向 ,第 L 个 频 支 , 波 矢 为 人 的 声 子 频率 о, (Е 
单位 . 但 对 于 三 个 方向 的 色散 曲线 ,单位 是 相向 的 . 

INT ` ;计算 状态 密度 时 所 取 的 g 空间 网 格 点 的 标 度 . 

IDOSXS: ;色散 曲线 上 的 最 遍 频 率 , 也 是 画 状态 密度 曲线 (DOS-w 
图 ?时 所 取 的 横 轴 人 (wo 轴 ) 上 点 的 数目 , 任意 单位 . 

NW(L.D.,SUBDOS(D *;L=1,3, I= ,IDOSXS. # L 0) 
分 状态 密度 ,任意 单位 . 

N(D ,TOTDOS- :I 二 1,IDOSXS, 对 各 频 支 求 和 后 的 总 状态 密度 . 
任意 单位 . 


六 ` 子 程序 说 明 


IL DICIDIR,K,QX QY ,GZ R,W ,IFAIL) 
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建立 单 原 子 衡 单 格子 的 动力 学 矩阵 ,并 调用 子 程序 EIGRAR 
和 MATEIG 求 矩 阵 的 特征 值 ,得 到 沿 IDIR 方向 ,第 K 个 波 矢 的 
特征 频率 W. IF AIL 是 动力 学 矩阵 计算 出 错 ( 产 生 负 的 本 征 频 率 ) 
的 标志 参数 . 出 错时 ,IFAIL==1, 程 序 中 新 运行 . 

2, D2(IDIR ,K,QX,QY ,QZ,R,RO,W,IFAIL) 

D2 是 用 于 建立 双 原 子 复式 傍 子 的 动力 学 矩阵 ,其 余部 分 箔 与 
D1 #819. ` 

3. ЕІСВАРСН,ЕА,МК,М)#1 МАТЕІС(М, НУ 

t PLK XI W ЕАУ $E (Ë ñ) F Ë PF , ЕА НН ЕЛ, # FF. 3-1 
ELWAVE. 


七 .计算 实例 


对 于 涯 原子 体 心 立 方 简 单 和 格子, 可取 IDCXSC 一 25.IDCYSC 
二 75,IATOMS 二 1,INT==50,R=0,8, 运 行 结果 见 图 4-13. 

A J AO f. CsCl 点 阵 的 复式 格子 ;可取 IDCXSC = 25, ID- 
CYSC=75,IATOMS=2,INT 二 50,R = 二 0.2,RO 二 0.5, 运 行 结 
示 于 图 4-14. 

本 程序 采用 人 机 对 话 方式 , 按 屏幕 提示 以 自由 格式 键入 输入 
数据 . 

径 序 运行 后 产生 如 OUT 的 输出 文件 ,记录 输入 参数 备查 . Р 
序 还 自动 生成 CD1,CD?,CD3 #1 SSD, TSD 共 五 个 输出 数据 文 
件 . 前 三 个 分 别 记录 L100],[110j 各 L111j 方 向 的 色 敬 曲线 数据 ;后 
两 个 分 别 记录 各 偏振 模式 的 分 状态 密度 曲线 和 总 状态 密度 曲线 数 
H. 可 供 程序 7-2 PLTCV2 在 异 幕 上 绘图 并 经 打印 机 输出 用 . 对 于 
单 原子 简单 格子 ,CD1,CD2,CD3,SSD 每 个 文件 此 有 三 条 时 线 的 
数据 .TSD 只 有 一 条 . 对 于 双 原 子 复 式 格子 ,CD1,CD2,CD3 每 个 
文件 篆 有 六 条 曲线 的 数据 ,SSD 有 三 条 ,TSD Ж-Ж. ` 

运行 指令 ;LATDYN OUT 
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10 


20 


40 


40 


20 


79 


八 , 源 程序 ,LATDYN - FOR 


PROGRAM LATDYN 

REAL N(200), NMAX, МУ (6,200), NWMAX 

DIMENSION W(3,6,200),WP(6),SUBDOS(6) 

ОРЕМ (C ,FILE='DC1t,STATUS='NEW*) 

OPEN(2,FILE= *DC2',STATUS= NEW!) 

OPEN(3,FILE=*DC2',STATUS="NEW') 

ОРЕМ (4 ,ЕПЕ = SSD? ,STATUS 一 ANEW?) 

OPEN (5.FILE='TSD',STATUS='NEW') 

ОРЕМ (6, FILE=* ',STATUS='NEW') 

IFAIL=0 

WRITE( * ,10) 

WRITE(6.10) 

FORMAT(20X,' x «ж» INPUT DATA * w* # w'/) 

РІ-4.0%АТАМ(1.0) 

WRITE¿ + ,20) 

FORMAT(1X ,'INPUT THE SCALE ОЕ THE Q AXIS ', 
/'OF THE DISPERSION CURVES: IDCXSC = "0 

READC+* , * ) IDCXSC 

WRITE(6 ,30) IDCXSC 

FORMATC THE SCALE OF THE Q AXIS OF THE °, 
/ IDISPERSION CURVES; IDCXSC = °,13) 

WRITE( # ,40) 

FÖORMATGOX. INPUT THE SCALE OF THE W AXIS ', 
POF THE DISPERSION CURVES, IDCYSC = "\) 

READ( * , x ) IDCYSC 

WRITE(6,50) IDCYSC 

FORMAT (1X,’THE SCALE OF THE W AXIS ОЕ °, 
/'THE DISPERSION CURVES,  IDCYSC =',13) 

WRITE * .60) 

FORMAT C INPUT THE NUMBER OF THE ATOMS,’ 
/ .29Х, ТАТОМ5 = 2,5) 

READ( » ‚+ ) IATOMS 

ҮҮКІТЕС(6.703 ТАТОМ5 

FORMAT (1X.'THE NUMBER OF THE АТОМ8.! 
/ ,30X ,'IATOMS = 7,19) 
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80 


90 


100 


110 


130 


150 


170 


180 


IF (LATOMS. EQ. 0) СО ТО 390 

МКІТЕ С * ,80) 

ЕОКМАТСІХ, МРОТ THE SCALE ОЕ THE MESH FOR ， 
/ THEDOSCALCULATION : INT = "о 
READ( +,» INT 

WRITE<8,90) INT 

FORMAT (1X, "THE SCALE OF THE MESH FOR THE * 
/ DOS CALCULATION, INT =°,13) 
WRITE( ж ,100» 

FORMATO INPUT RATIO ОЕ THE 2ND ТО IST °, 
"МЕАМЕЅТ NEIGHBOUR ГОКСЕ CONSTANTS. R = "0 
КЕАО(»,«3 Е 

WRITE (6,110) R 

FORMATILX THE RATIO ОЕ 2ND TO:-1ST NEANEST *, 
/ 'NEIGHBOUR FORCE CONSTANTS, R =',F4. 2} 
ІЕЧАТОМЗ. EQ. 2) СО ТО 140 

М/ЕТТЕ С x .120) 

ҒКОНМАТ(/9Х,жжғж PROGRESS REPORT ABOUT ' 
/ "CALCULATION x + + +*'/) 

WRITE( + .130) 5 

FORMAT’ CALCULATE ЕСЕ А MONATOMIC bee * 
/ CRYSTAL І.АТТІСЕ.?Э 

Ј= 3 

CONTINUE 

IF ПАТОМ8. EQ. 1) GO TO 180 

Ізшб 

WRITE* ,150) 

FORMAT’ INPUT THE RATIO OF АТОМІС” 
/ MASSES: ,30X КО = ',N) 

КЕАП( +,» ) КО 

WRITE(6,160) КО | 

ҒОКМАТ“ THE RATIO ОЕ ATOMIC MASSES,’ 
/ 30X," RO =',Е4.2) 

УУКІТЕС + .120) 

МЕТЕ ж ,170) 

FORMATO CALCULATE FOR А DIATOMIC CsCl 
/ = TYPE CRYSTAL LATTICE:”) 

CONTINUE 
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200 


WMAX = 0. 0 
INT1= IDCXSC + 2/IATOMS 
DO 200 K=1,INT1 
QX=EFLOAT(K) + PIFFLOAT(INT1 +» IATOMS) 
QY=0.0 
QZ=0. 0 
IF (IATOMS. EQ. DCALL DI(1,K,QX,QY QZ,R,W,IFAIL) 
IF (IATOMS. ЕО. DCALL D2(1,K,QX,QY,QZ,R.RO, 
W ,IFAIL} 
ІҒАҒАШП,. EQ.1) GO TO 390 
IF(WMAX.LT.W(1,J,K)) WMAX= W(1,],K) 
CONTINUE 
INT2=IFIX(FLOAT (IDCXSC) + SQRT (2, 0)) 
DO 210 K=1,INT2 
QX=FLOAT(K) * PI ж 0. 5/FLOAT(INT2) 
QY=QX 
QZ=0.0 
IF(LATOMS. ЕО. DCALL D1 (2,K,QX,QY .QZ2.R,W,IFAIL) 
IF (IATOMS. EQ. 2)CALL D2(2,K,QX,QY ,QZIRRO, 0 


/ W ,IFAIL) 


210 


IF {IFAIL. EQ. 1) СО ТО 390 
IF(WMAX. LT. W(2,],K)) WMAX=W(2,J,K) 
CONTINUE 

INT3=1FIX(FLOAT (IDCXSC) + SQRT (3.0) * 2.0 


/ /FLOAT(IATOMS)) 


DO 220 K=1.INT3 

ОХ--БІОАТ(К) + PI/FLOAT(INT3 * IATOMS) 

QY=QX 

QZ=QX 

ІЕПАТОМ5. EQ. DCALL DIC3KQXQYQZ,R,W ЕАПУ 
IF (IATOMS. EQ. CALL б2(3,К,О0Х,0Ү.,027,Е ,RO, 


/ W ,IFAIL) 
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IF (IFAIL. EQ. і GO ТО 390 

ІБОУУМАХ.1.1. W(3,J,K)2 WMAX=W(3.J.K) 
CONTINUE 

DO 249 IDIR=1,3 

IF (IDIR. EQ. 1} INTP=INT1 

IF (IDIR. EQ. 2) INTP=INT2 


270 


IF (IDIR. EQ. 3) INTP=INT3 

WRITECLDIR ,250) INTP 

DO 240 I=1, INTP 

DO 230 L=1,J 

WP(L)=W(DIR,L I) * FLOAT (IDCYSC—1)/WMAX 
CONTINUE 

WRITE(IDIR,260) FLOAT(D ,(WP(L),L= 1, 
БОКМАТ(1Х,15; 

ҒОКМАТ(1Х.Е4. 0.6(1Х,Е?7. 3))» 

CLOSE(1) 

CLOSE (2) 

CLOSE(3) 

WRITE( * ,270) 

FORMAT (1X,'CALCULATION ОҒ DISPERSION’ 


/ ‚„* CURVES FINISHES | 9) 


WRITEC * ,300) 
ҒОВМАТС CALCULATE THE DENSITY ОҒ”, 


/ STATES. '? МАТТТІМОС... 9? 


DO 310 IWINTP= 1,200 


МОНУІМТРҘ--0. 0 


DO 310 І--1,6 

NWI IWINTP)=0. 0 

CONTINUE 

IDOSXS=0 

INTD=INT/IATOMS 

DO 320 KX=1,INTD 
QX=FLOAT(KX) + PI/FLOAT(INT? 
LIM = Kx 

IF (KX. GT. INT/2) LIM =INT-KX 
DQ 320 KY=1, LIM 
QY=FLOAT(KY) + PL/FLOAT ОМТ) 
БО 320 KZ=1,KY 
О?-əңСЕІОАТ(ҰҚ22--0.5> «РІ/ҒІОАТАМТ) 


IF(ATOMS. EQ. ОСАЛ, Б151,1.0Х5.01У,02,К.УТЕАНП,? 


IF (LIATOMS. ЕО. 22CALL р2(1,1,0Х.,67Ү,02,К.КО, 


/ W ,IFAIL) 


IF (IFAIL. EQ. 1) GO TO 390 
WT = 1.0 
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320 


IF (KY. EQ. LIM. OR. KX. EQ. INTD) WT=ü0. 5 

DO 320 I—1,] 

W(1,L,1)=FLOAT(IDCYSC— 1) x W(1,1, D/WMAX 
IWINT=IFIX(W(1.1,1)) 

IF (IDOSXS. LT. (IWINT+2)) IDOSXS=IWINT +2 
WFRAC=W(1,1,13—FLOAT(IWINT) 
NW(L,IWINT+ 1)=NW(LIWINT+1)+ (1.0— WFRAC) % WT 
NW(L,IWINT+2)=NW(1,1WINT+2)-+WFRAC x WT 
CONTINUE 

NWMAX=0. 0 

NMAX=0.0 

DO 340 IWINT=1,200 

ПО 330 I=1,3 

IF ПАТОМ5. EQ. 2) 


/ NW(LIWINT)=NW(LIWINT)+NW(I+3,1WINT) 


320 


340 


350 


360 


379 
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N(IWINT)=N(IWINT)+NW(LIWINT) 

IF(NWMAX. LT. NW(LIWINTONWMAX=NW(I.IWINT) 

CONTINUE 

IF (NMAX. LT. N(ọIWINT)) NMAX =N(IWINT)} 

CONTINUE 

IDOSXS=IDOSX5S+ 2 

WRITE(4.250) IDOSXS 

DQ 360 1=1.JDOSX5 

INTD=IDCYSC/3 

DO 350 L=1,3 

SUBDOS(L) =NW(L, 141) + FLOATONID/NWMAX 
+1.0+FLOAT(INTD + (L — 1)) 

IF (SUBDOS(L). LT. 0) S'UaBDOS(L)= (— 1.0) + SUBDOS¿(L,) 

WRITE(4.260) FLOAT (OY, (SUBDOS(L),L=1,31 

CONTINUE 

WRITE(5.,250) IDOSXS 

DO 370 1=1.1005Х5 ` 

TOTD0OS=N(1+1) + FLOAT GDCYSC)/NMAX+1.0 

WRITE(5,260) FLOAT}. TOTDOS 

CONTINUE 

CLOSE (4) 

CLOSE (5) 

WRITE'( + ,380) 


3890 


390 


10 


30 


FORMAT(IX CALCULATION ОЕ DENSITIES OF ” 
/ STATES FINISHES | 7) 


CONTINUE 
CLOSES?) 
STOP 

END 


SUBROUTINE 0: ОНЕ .К.ОХ.0Ү.02,К,У,ЛЕАТ)) 
DIMENSION 97(2,6,2003,р(3.32,5(32,С532), 


W2(3>, WKSPC (35 
C41y=C0OS(QX) 
C(2)=COS—(QY) 
С(3) =С05(02 
S(1l)= SIN (GX, 
S(2y=SIN(Q Y) 
S(3)=SIN(QZ) 
DIAG=1.0+-0.75 + R—C (1) * C(2) С.З) 
D(1,1)=DIAG—0, 75 + R » COS(2, 0+ ОХ) 
D(2.2)=DLIAG—0.75 + R + COS(2. 0 + QY? 
D(3.3)=DIAG—Ü0. 75 * Е + СО5(2. 0 x QZ) 
041.222==5(1) + 52) С53) 
О(2.33-С(1) «552; «513) 
3(53,10--55(11% 052) “553? 
р (2.19 (1.23 
[}(3,2)==1[){2,3) 
D1,.3)=D(3.1) 
CALL EIGRARƏOD,W2.,WRSPC. 3) 
DO 101=1.3 
ІЕСАВӘСУУ26192.1,1. 0. 80001» W2(1)= 0. 0 
IF(W2(1). LT. 0.02 GO ТО 20 
WDR, ILK)=S5QRT(W21í1)) 
CONTINUE 
RETURN 
WRITE * ,30) 
WRITE'(6,30) 


FORMAT (X ,'SUBROUTINE DI PRODUCES " 
/ ,NEGATIUE FREQUENCY 5 


IFAIL=1 
RETURN 


277 


10 


20 


END 
SUBROUTINE D2(IDIR,K,QX,QY.,QZ,R.RO,W,IFAIL) 
DIMENSION У7(3,6,200),0Х6,6),553),С59», 


/ W216), WKSPCĖ{6) 
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C(1)=COS(QX) 

C(2)=COSC(QY) 

C (3)y=COS(QZ) 

S(1)=SIN(QX) 

S(2)= SIN(Q Y) 

S(3)=SIN(QZ) 

КООТЕО = SQRT RO) 

DO 10 I=1,6 

Dl}=0,0 

CONTINUE 

D(1,1)=ROOTRO + (1.0+0.75* К-0.75% Б. СО5(2. 0+ ОХ?) 
0(2,2>У = ВООТКО # (1. 0+0. 75+ А — 0. 75 + R * COS(2. 0 е Үә) 
043.35 = КООТЕО ж (1. 0+0. 75 * К 0. 75 + R < COS(2. 0 + ОА) 
064,4) := (1. 0-0. 75 + R—0. 75 x Еж С05(2. 0 * ОХОҘ/КООТКО 
D5,.5)= (1.040. 75 + R— 0. 75 * R * COS(2. 0 * QY))/ROO TRO 
09(6.59--(1.0--0.75« R —0. 75 x R + СОЅ(2, 0 x ОЛУ) ЕООТКО 
DO 20 1= 1.3 

рО = СІ ж (2) ә C(3) 

041+3.1) = 001.143) 

CONTINUE 

D(1,5)=S(1) БОС (3) 

[0‹1,6)=5(1›+*#С(2›*+5{(43) 

р(2.69-С(1» «8(29 5539 

D<5,1)=D<1,5} 

1)42.4)= 11,5} 

044,2)=р‹1,5)} 

746,1) =р(1,6) 

43.4) =р(01.6) 

064.3) = 001.8) 

0(6,2)=р(2.6) 

)0(3,5>=р(2,6) 

DKS p AD, G) 

CALL EICRAR (D, W2, WKSPC.6) 


39 


40 
50 


10 


20 
30 


IF САН5ХУУ2(192.1./7.0.00001) У/2(12--0. 0 


ТЕ (W2(D. LT, 0.0) GO TO 40 
УУ(ІПІК,1,К)--ЗОКТСУ/251)) 

CONTINUE 

RETURN 

WRITE( * ,50) 

ЕОВМАТ(1Х,! SUBROUTINE D2 PRODUCES ' 


/ NEGATIVE FREQUENCY’) 


IFAIL=1 
RETURN 
END 
SUBROUTINE ЕІСКАК(Н,ЕА,ҰҰҚ,М) 
DIMENSION H(N, N), EA(N),WK(N) 
CALL MATEIG(N,H) | 
DO 101-1,М 
ЕА(12--Н(1,1? 
CONTINUE 
DO 30 j= 1,N—1 
DO 20 K=J+I,N 
ІБСХЕАСО--ЕА(Қ)». LE, 0. 0 GO TO 20 
WK(J)=EA (J) 
ЕА<і)-ЕА«К)» 
EA(K}= WK (J) 
CONTINUE 
CONTINUE 
RETURN 
END 
SUBROUTINE MATEIG(N,H) 
DIMENSION НМ, N) 
E=0.1E—5 
CONSTF =FLOATN) 
ПЧ--0 | 
АМОКМ=0. 0- 
DO 20 J=1,N 
DO 10 I=1,N 
IF({J— 1D). EQ. © GO TO 10 
ANORM=ANORM4H(. D * HL) 
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19 
20 


30 
40 


56 
60 


70 


z 


CONTINUE 

CONTINUE 
ANORM=SQRT(ANORM) 
FNORM= ANORM * E 
ANORM= ANORM/CONSTF 
DO 8010--2.М 

DO 80 ІР--1,10--1 


IF((ABSCH(IP,IQ )— АМОКМ э. LE. 0. ОСОТО 80 


IN=1 

UH=-—H¿(IP,IQ) 
УН--4НСОІР,ІР2-Н(19,1992/2.0 
ҰН-УН/ С ЗӘКТОАТН» ОНУН + УНЭ) 
IF (VH. LT. 0.0) WH=— WH 


SNN= WH/(SQRT(2,0 *'(1. 0--5ОВТ (1. 0— WH + WH)))) 


SNN2=SNN x SNN 

СӚМ--ЗОКТ(1.0--5ММ2) 

DO 60 I=1.N 

IF (KI— IP). EQ. 0) GO TO 50 

ЈЕ (110). EQ. 0) GO TO 50 

В-«НСОЬІР)«С5М-НО,19) + SNN 

HL) =H IP) «МЫ-ЕНКІ,ЮЭ + CSN 

H(I IP)=B 

CONTINUE 

CONTINUE 

CSN2=CSN + CSN 

STC=SNN x CSN 

НРР--Н(ІГРУІР) ж CSN2+-HR(1Q.1Q * SNN2 
— 2.0 * HIP, IQ) + STC 

HAQQ =Н (Р.Р) + SNN2+H<IQ IQ) + CSN2 
+2. 0 * H(IP I9) + STC 

НаР,ГЮОЭ--СНАОРАР)-Н(0,1092 = STC 

“ЕНСІР,10) «(С5М2-5ММ9) 

H(IQ ,IP)=H(IP ,IQ) 

НА1Р.ЇР›=НРР 

H(IQ.IQ)=HQQ 

DO 70 [= 1, N 

HIP. D=HU IP) 

H(Q,D =H, IQ 1 


80 


90 


CONTINUE 

IF({(IN— 1). NE. 0) GO TO 96 

IN=0 

GO TO 40 

IF ((ANORM —FNORM). GT. 0.0) GO TO 30 
RETURN 

END 
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第 五 章 ”固体 的 能 市 和 电子 密度 分 布 


图 体 由 大 量 原子 组 成 ,每 个 原子 包含 一 个 原子 核 和 许多 电子 ， 
因此 固体 是 多 粒子 体系 .对 固体 的 研究 归结 为 处 理 多 体 癌 题 . 为 了 
把 多 体 问 题 简 化 为 单 电子 问题 ,要 引入 近似 条 件 ,这 就 是 熟知 约 能 
带 论 的 三 个 前 提 :第 一 ,绝热 近似 , 考虑 到 原子 核 ( 或 离子 实 ) 的 质 
硬 比 电子 大 得 多 ,次 子 运 动 速度 慢 ,在 讨论 电子 运动 时 ,可 以 认为 
离子 是 固定 在 瞬时 的 位 置 上 .这样 ,多 种 粒子 的 多 体 问 题 就 简化 成 
多 电子 问题 , 第 二 ,平均 场 近 似 . 把 多 电子 向 题 简化 成 单 电子 问题 ， 
即 认为 固体 中 的 每 个 电子 是 在 固定 的 离子 势 场 以 及 其 它 电子 的 平 
均 场 中 运动 . 第 三 , 癌 期 场 近似 , 认为 所 有 离子 的 势 场 和 其 它 电 子 
的 平均 场 是 因 期 性 执 场 .这 样 一 来 ,问题 就 简化 为 求解 一 个 电子 在 
AW ҙа УД) ІН РЕР Е (Shródinger)7y ЖЕ. 

МЕЖЕ ТТТ L BIP B ІН KBER E: 38 52 
(Enak iti ТЕКЕ 0, НВА ДЕЗ МАҚАН t T ÉE A 
з Л Fe ME S YF АЕ Ж ЖЫЙ ДУ ЙД ДЕ BJ АЯН ЖЕНЕ 
本 征 值 . ЕМЕ T E E E АЕ 9, ШИН МИНЕ ІЛЕТІН Ж 
数 , 在 不 辐 的 方法 中 ,选择 了 不 同 的 基 函 数 集合 和 晶体 势 场 的 表示 
式 . 实际 晶体 的 能 带 计算 ,必须 借助 计算 机 实现 . 所 以 晶体 能 带 结 
构 的 计算 是 十 分 繁重 的 工作 . 

本 章 通过 计算 电子 能 带 结 构 , 帮助 读者 掌握 能 带 结 档 计算 中 
使 用 的 基本 方法 . 


$5.1 具有 各 种 形式 周期 势 场 的 


一 维 晶体 能 带 的 计算 
对 于 品格 常数 为 e НЯ Ре, Дн РЕТ 
(E B AVOJ = Ера) 6-0) 


如 采用 坟 子 单位 ,其 能 量 单 位 为 里 德 伯 (Ryd) ,距离 单位 为 玻 尔 半 
色 (Bohr), 取 万 =1, 电 子 质量 m=. 方程 (5 一 1) 成 为 


= 2 十 V (z) |в се) = Egiz} (5 一 2) 
陈 中 Y(z) 是 以 品格 半期 为 周期 的 势 场 , 即 VOo )=V(z+nay,n 
为 整数 . 
由 布 洛 赫 (Bioch) 定 理 知道 ,在 晶体 周期 场 中 运动 的 电子 ,其 
Нн ТІН ЖЕ. Bloch Ж.А 
pir) = ехр (ға <<) (5 — 3) 
将 (5 -一 3) 式 代入 (5 一 1) 式 ,得 到 
= т-ны) — 324 — + С + И Са) аз (2) = Eul) 


(5 — 4) 
下 面 力 线性 变 分 法 求解 方程 (5 一 4)， 


5.1.1 ЖЫ 
首先 介绍 线性 变 分 法 的 一 般 原 理 . 


将 体系 哈密 顿 (Hamiltonian ) 算 符 过 的 本 征 值 按 由 小 到 大 的 
ЖЕНЕ ДУ, Е, Н, ЕЕ, ;与 其 对 应 的 本 征 波 ЖУ о s P y "°" tf, 
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o. 此 本 征 函 数 的 集合 { 几 } 是 一 个 完备 的 正 交 归 一 系 , 于 是 有 : 


Нұ, = Е,ф,. (5-5) 
设 少 是 任 章 一 个 妇 一 化 的 波 函 数 , 可 将 色 用 完备 系 { 央 } 展 开 , 即 有 
ф = У\с,ф, (5-6) 

体系 在 所 描写 状态 的 能 量 平 均值 为 
(Ey = |ы Вуа: (5—7) 


将 (5 一 6) 代 入 (5 一 7) 式 ,得 
(E= Уус]: pdr = Хо ГАТТ 


= pcr cE 一 2, les [En (5 — 8) 


Е, 是 体系 的 基态 能 量 ， 所 以 Eo Enlmn=l, 2) 若 和 将 (5 一 8) 式 
中 的 Е.Н E, 代替 , 则 有 如 下 的 不 等 式 ，; 
(E) > Е, 2 les | (5 — 9) 


len l? 是 体系 处 于 内 ЕНГ 的 归 一 性 ( 即 D 1. = 
1),(5 一 9) 式 可 以 进一步 写 为 


将 (5 一 ?) 式 代入 上 式 , 得 到 
Е, < |е Вас (5 — 11) 
ЕРЕ ¿ ЖА 0 С-ТА 
[y Bear 
(ЕУ = (5 — 12) 
|" вас 
因而 (5 一 11) 式 随 之 为 
|ы Bydr 
б < (5 — 13) 
[y ydr 


《5 一 11) 和 (5 一 13) 两 式 中 的 等 号 只 有 当 波 函数 少 是 体系 的 基态 波 
函数 时 才 成 立 . 从 这 两 式 可 知 , 用 任意 波 函 数 风 算出 的 算 符 H 
的 平均 值 给 出 体系 基态 能 量 E, HER. 如 采 我 们 选取 很 多 不 同 的 
HAR yj, 用 它们 算出 H 的 平均 值 , 则 这 些 平均 值 中 最 小 的 一 个 
最 接近 于 Eo, 相 应 的 波 函 数 最 接近 于 基态 波 卫 数 . 

二 .用 弯 分 法 求解 薛 定 请 方 程 

变 分 法 是 用 数值 方法 计算 蜗 体 的 能 带 结构 时 最 党 和 用 的 方 
法 . 将 一 个 体系 的 波 函 数 作 为 一 组 变 分 参 最 cr ca ссы 
的 函数 , 即 | 

фр = PLEC e см) (5- 14) 


式 中 工人 代表 体系 的 全 部 坐标 . ЖЛЕ ДАШ. ЕЕ ЖКМ h (E W И 
值 , 即 3 五 ?一 0. 于 是 从 (5 一 12) 式 得 到 


>; A е 0 (5 一 15) 


¿; 
ЖЕ» 
Ф, 
УХ. (e Y Br W ДЕ ВОЛЕН. # H ЖАЙ я Ву AeA (5 — 14) 
式 , 就 得 到 了 真实 波 范 数 的 最 好 估计 值 . 
下 将 未 知 波 函 数 册 写成 一 组 基 函 数 {X} 的 线性 组 合 


4 


ше 0 (i = 1,2,-. N) (5 — 16) 


glr) = Уа бх) (5 — 17) 


到 组 全 系数 {cy} 作 为 变 分 参量 ,通常 将 基 范 数 { 为 } 选 成 是 正 交 归 一 
的 , 即 满足 
1 *>* 1 = жп 
ӘЖЕГЕ "4, Жан (5 — 18) 
м N—ocolRf , (5— 17) ЖЕЕ ЕЕЕ W y EE R) 35 ЯЕ , (H ЗЕБ F 
只 能 对 有 限 级 数 求 和 . 当 级 数 项 数 N 选 的 足够 多 ,忠于 切断 带 来 
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інжіл 22 Bi. 
由 《5 一 12) 式 可 知 


[y («УНф(хзалх 
(Ey = ——— n. 
|ы бфде 
将 (5 一 17) 式 代入 (5 一 19) 式 ,得 到 


ха Xr (т) Уд 


m= | 


- [5 Хг GB Уел. (z)dz 
由 于 (zx) 的 正 交 性 БАЖА 


N н 
(Е) Улага т” >. >e c H im 
i=l 1=1 м=1 
式 中 
= | СӘУІР ЖЕӨЗГЕ, 


xf cr RRE, MAGDA 


не + (Eg = 2 B. 
根据 变 分 原理 WE E ÉE E Ts h ТЕШЕН c, 值 , 出 现 
KE) _ 0 
2 Ар 


处 ,所 以 (5 一 23) 式 成 为 
Se HE, = «Еді а--1,2.“М) 


(5 19) 
(5 20) 
(5 — 21) 
(5 一 22) 
(5 — 23) 
(5 一 24) 
(5 一 25) 


此 式 构成 一 个 N 维 线性 齐 次 方程 组 . 其 有 不 完全 为 零 的 解 的 条 件 


是 关于 {c1} 的 系数 行列 式 为 零 , 即 


H — (E? Н, fi +°" Hois 


Н», н» — (E) Hn 


H w Hyun 一 (E) 
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按 此 方程 ,人 五 ;有 N 个 根 , 这 些 根 可 以 用 标准 的 数值 计算 方法 得 
到 . 

解 久 期 行列 式 (5 一 26) 式 所 得 到 的 《五 ?的 根 中 最 小 的 一 个 就 
是 体系 基态 能 量 的 上 限 , 也 是 所 算得 的 起 态 能 量 的 最 接近 值 . 将 这 
个 最 小 (E) 的 值 代 入 (5 一 25) 式 , 求 得 一 组 c, 将 这 组 6c 代入 (5 一 
17) 式 定 出 的 y, 就 是 对 应 的 近似 基态 波 育 数 ， 

由 上 面 讨 论 可 知 , 基 范 数 组 xX(z) 与 哈密 顿 五 (主要 是 电子 势 
能 部 分 ) 的 选取 ,对 计算 结果 影 啊 很 大 ,也 直接 决定 着 计算 工作 量 
的 大 小 ， | | 

在 解 定 访问 题 的 近似 方法 中 , 变 分 法 应 用 最 三. ТЕТЕ ЯЗ Ж 
上 ,特别 蚌 求 基态 能 量 时 , 变 分 法 较为 简单 . 变 分 法 的 缺点 是 难于 
估计 近似 的 程序 ,也 很 难 计算 高 级 近似 . 


5.1.2 基 国 数 的 选择 


.应 用 变 分 法 ,需要 选择 一 给 合适 的 基 乌 数 , ІҢ Bloch 定理 知 
道 ,方程 45 一 3) 中 的 如 kz 是 以 量 格 竺 数 а 为 周期 的 函数 ,因此 可 
ЖИЕН ЯСЫ | 


м 
цех) = У? сехри үт) (5-- 27) 


іт-/, 


系数 о 一 般 为 复数 ;K, 是 例 格 矢 , 在 一 维 单 原子 链 情形 , 它 等 于 
“IG REXO. (5 一 27) 式 中 的 {exp(iKz)} 就 是 所 选 的 基 范 数 
势能 V(z) 也 是 周期 性 的 , 故 也 可 用 传 里 叶 级 数 展开 为 
У‹х) = У f exp GK „=) 《5 一 28) 


і--М 

( 倒 格 矢 K= jj 为 整数 ) 

ЕБ ЖАТ НН”, Б А Л д, Д И 
《TzT)= 二 V (一 xz), 由 于 对 称 性 使 计算 全 大 大 减少 , 因为 costar) = cos 
(一 aX) 种 sin(ax) 一 一 sin( 一 ax), 故 选 反 演 中 心 作 原点 使 所 有 展 
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开 式 的 正弦 项 系数 为 0, 并 有 
ЖЕР (5 — 29) 
所 有 方 均 为 实数 ， 
将 (5 一 28) 式 代入 单 电子 薛 定 兽 方程 465 一 4), 则 可 将 该 方程 中 
的 哈密 顿 算 符 写成 如 下 形式 ，; 
d’ 
wp 


H=- = +k + V (z) 
ж 


а а 
а ах 

кз 4-2 във У) Лекок) 
(5 一 30) 


Fi L yE 1 SF: UD 平面 波 型 本 函数 代入 (5 一 22) 式 ,得 到 
н = St gt S A 


а уо 
xp| | ): exp| ==" ал (5-- 31) 
由 于 基 函 数 的 正 交 性 ,(5 一 31) 式 成 为 
ы (ае m) 
H im = m ць 29" тт 4 Ж зан] (5 = 32) 


па йш ыл ишни аши. 


yN 4, | dav 
а-н ; 
ија à k | 
(а м | 7 7 ; 
а p h 4 
2 2 2 
| 4, 4 мү 4 
: , ГЕ | +5 
da Ме}, 4, 
т Т а) т 
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至 此 ， 电 子 能 带 结 构 计 算 归 结 为 求 哈 密 顿 矩阵 (5 一 33) 式 的 
特征 根 ， 对 于 动量 nk 一 定 的 电子 , 其 波 函 数 即 为 该 特征 根 相 应 的 
特征 呵 量 ， 关 于 计算 矩阵 的 特征 值 和 符 征 器 量 的 方法 ， 可 参看 附 
Ж 1. 


5.1.3 ЖАЯ 


在 晶体 中 ,电子 在 周期 势 场 中 运动 ,此 周期 势 是 电子 同 所 有 源 
子 核 和 所 有 其 它 电子 的 库仑 相互 作用 产生 的 . 图 5-1 给 出 了 四 种 
不 同形 式 的 一 维 周 期 势 . 势 场 的 周期 是 a. 由 于 原点 是 反 演 中 心 ， 
有 T(z) 一 Y( 一 z), 故 只 需要 在 0 和 rz 和 < 了 范围 内 取 势 场 的 值 ， 

程序 5-1 ENGBND 中 可 采用 的 周期 势 有 五 种 ,它们 是 ， 

І. 上 矩形 势 ( 图 5-1(a)) 

矩形 的 高 度 为 V。, 宽 度 为 5,, 势 的 周期 为 a 


V (z) = (5 一 34) 
Va Fa >| <: <£ 


将 V(x) 进行 傅 里 叶 展 开 , 其 余弦 项 各 项 系数 为 
рУ, 


1 == 
а 


(5 — 35) 
d; = 2V,cos (JT) ° sin | 40 аА 


(j=— N, — N +1, N) 


2, У. (图 5-106)) 


ИГЕ Vo AEK а ; 势 的 周期 也 是 а. 
| 2V = 0< x < у 
V (z) = (5- 36) 


V, т = 


2А 
2 
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(а) 443. 
— 4 б 4 
£ 
i АК 
—@ 0 а 
V (z) 
ак” Ñ JA u 
— д o а 


wa олын J c шынын qp s тұсы» Gs u vu G ШЫНЫН w — 


(d) 


图 5-1 周期 势 的 选择 
(ӘЖЕ ОШ 
(ә (ЗЕКТІ 
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Ú = V 
d, = 2V,(cos jz — 1. 0)/ (jm) 
3. ВУ 5-10 
势 的 向 度 为 Vu, 周 期 为 a. 
V (z) = Vel! — COS 
ñ — 2V, 
а, == --- V, 
4, 谐振 子 势 ( 图 5-1(4)) 
势 的 高 度 为 V。, 周 期 为 a. 
х“ а 
4V, > 0< x< — 
a 2 
V (>) = 
V, ж = — 
1 = 4Voa’ /6.0 
d, = ДУ acos (jm) / (ўт)? 


== 


J 


5. ffi À Ek 


(5 — 37) 
(5 — 38) 
(5-39 
(Б-- 40) 
(6 0 


АЯҢ а. EANO OA, 任 选 N TA z G =1,‚2. 


n N ,给 每 一 个 点 处 的 势 任意 赋予 一 个 值 YiG 一 
可 用 线性 插入 法 计算 此 半 周 其 内 .所 有 位 置 的 热 VCz), 而 给 另 半 
周期 的 各 点 ,对 称 地 巾 予 相应 的 势 值 . 此 势 的 传 显 叶 系数 可 用 数值 
方法 计算 


5.1.4 有效 质量 


. N), M 


当 我 们 用 波 包 来 描述 同体 中 电子 的 运 小 (即将 电子 看 作 淮 经 


一 、 在 外 力作 用 下 状态 的 变化 和 淮 动 县 


典 粒 子 ) 时 ,如 引入 有 效 质 量 的 概念 ,就 会 使 得 关于 输 运 过 程 的 研 
究 变 得 十 分 简便 . | 


设 员 体 中 一 电子 的 六 天 为 上 ,运动 速度 为 ,如 果 有 外 力 下 作 
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用 在 此 电子 上 ,在 di 时 间 内 ,外 为 对 电子 作 的 功 为 

F - v,dt (5 — А2) 
ми ВЕ АЛУ. 由 于 电子 能 量 E (k yl E ТІК kt 
在 此 外 力作 用 下 ,上 也 相应 变化 , 设 其 改变 量 为 dk. ЖЕЛІНЕ 
理 ,有 


dk . VE = Fv,dt (5 一 43) 
由 波 包 理论 知道 
V |Ë = һу; (5 — 44) 
将 (5 一 44) 式 代入 (5 一 43) 式 ,有 
ак E o 
к = 0 (5 一 45) 


从 上 式 可 知 , 在 平行 于 内 的 方向 ,太守 与 的 分 量 是 相等 的 . 当 外 
JJ F 与 速度 垂直 时 ,就 不 能 再 用 功能 原理 来 讨论 电子 运动 状态 的 
变化 ,但 可 证 明 ,在 垂直 速度 的 方向 ,太守 和 下 的 分 量 也 相等 , 故 
下 面 的 等 式 成 立 
d 
z k) = F (5 — 46) 
(5 一 46) 式 是 有 外 力作 用 时 运动 状态 变化 的 基本 公式 . 例如 ， 
在 恒定 外 电场 (F 一 一 ee) 作 用 下 ,电子 在 上 空间 做 匀速 运动 (5 一 
46) 式 和 牛顿 定律 具有 相似 的 形式 ,其 中 pk 取代 了 经 与 力学 中 的 
动量 . 在 准 经 典 运动 中 ,以 及 在 一 些 其 它 方面 ,1k 具有 类 似 于 动量 
的 性 质 ,因此 常 称 为 准 动量 . 但 要 注意 , 布 洛 赫 波 并 不 是 自由 电子 
动量 算 符 的 本 征 态 ， 
二 ,加 速度 和 有 效 质量 
品 体 中 电子 准 经 典 运动 有 两 个 基本 关系 式 
| 1 
у = т Уа (5 — 47) 
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hdk _ _ 
ri (5 一 48) 


从 这 两 式 出 发 ,可 以 直接 写 出 外 力作 用 下 产生 的 加 速 但 的 公 
式 . 因 外 力作 用 引起 天 随时 和 间 变 化 ,从 而 引起 速冻 随时 间 变 化 ,所 


以 产生 加 速度 学 . 写成 分 量 的 形式 ,有 


du, | 41 ƏE(k)) _ 15 а, э 220) 
dt аә ж, |= #2 Ф, 

= 3 

= ж 2 F. ЕЕ (5 一 49) 


如 用 矩阵 表示 , 则 有 
3E ӘЖ ӘЖ 
a: 2,0%, аа, 


0, К. 
. 113 ӘЖ 2'E | 8 
М-ы жо аш F,| 6-50 
7E 3E atk |> 
kk, Rk, он 
(5 一 50) 式 具有 类 似 于 和 牛顿 定律 
а» 1 
к ШЕЕ рөн (5 一 51) 
НЕ ИЕШЕ Т, ИЗИНЕК. 
此 张 量 的 分 量 为 
1 3E 
Б? Ж, (5 = 52) 
Жаа 轴 沿 张 量 主轴 方向 , 则 有 
7E _ |50 а-ф Е 
жаб, Z . gai (5 一 53) 


这 时 倒 有 效 质 量 张 量 的 非 对 角 元 素 全 为 零 . 在 这 种 情况 下 ,有 效 质 
БЕЛ 
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9 
ts 


дс; 
А 110 = 0 
0 т, 0 |= Г ӘСЕ (5 — 54) 
1 ЕТЕ: 
0 0 Ma т 
1 
° ° JE 
ЕН 
此 时 (5 一 51) 式 简化 成 
тш, =F, (5 一 55) 
r O, = F, 


ERMEER H РЕЖЕ Е KE, — RAK mee, 
туут К ЖАҢ ,+ BI 8: ЛЕЯП УК J; ñ) т PT bJ EA ВУ. 

有 效 质 量 是 一 个 很 重要 的 概念 , 它 把 晶体 中 电子 准 经 典 运 动 
的 加 速度 与 外 力 直 接 联 系 起 来 了 , 有 效 质 量 m GETER m 之 
同 可 能 相差 很 大 ,因为 有 效 质量 中 包含 了 周期 场 的 作用 . 而 这 种 作 
用 主要 通过 布拉格 反射 的 形式 在 电子 和 咏 格 之 间 交 换 动 量 . 

有 效 质 量 不 是 一 个 常数 ,在 一 般 情 况 下 , 它 是 一 个 张 量 ,只 在 
某 些 特殊 情况 下 才 约 化 为 标量 . 有 效 质量 可 以 是 正 值 , 也 可 能 是 负 
值 , 值得 特别 提出 的 是 :在 一 个 能 带 底 附 近 , 有 效 质量 总 是 正 的 ;人 而 
在 一 个 能 带 项 附近 ,有 效 质量 总 是 负 的 . 这 是 因为 能 带 底 和 能 带 顶 
分 别 代 表 EC) 函数 的 极 小 和 极 太 ,因此 分 别 具 有 正 值 和 任 值 的 二 
阶 微 商 . 


为 方便 起 见 , 在 布 区 边界 附近 取 т. == 


W Со 的 能 带电 于 的 有 效 质量 看 成 具有 正 电荷 和 正 有 效 
质量 的 空 究 ， 
当 采 用 原子 单位 时 ,取石 一 1, 电 子 的 惯性 质量 m= 万, 得 到 相 
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2 过 | 而 引入 空 穴 的 


т. 一 = | (5 — 56) 
Ба 
HEER АНЫН nf B SJ JH ЖЕ СТАУОЕЛЖЯЯЯ 
能 量 对 波 矢 的 二 级 微 商 . 


1 4*Е 


ӘР, 2 
Ел = Е, + 22 23 + 21 =: АА айы ан 
Eje Ay = Е, - шар! T Š а ди T 
土 述 两 式 相 加 ,近似 得 
3E І 
x == AFC Ei 十 Ei- < 2Е,2 (5 一 58) 
AP Ak 为 波 矢 天 的 微小 改变 量 ， 
5.1.5 几率 密度 


AMIRE E Mr 变化 的 关系 是 能 带 计算 的 最 重要 结 
R. 但 有 时 也 对 实际 波 了 邱 数 感 兴趣 ,例如 要 知道 固体 中 电子 密度 的 
分 布 ,就 要 求 计算 几率 密度 y' (rx)y(z), 它 可 使 人 们 了 解 更 多 的 
微观 信息， 
从 (5 一 3) 式 得 到 
р" (P) = иг (ада, (z) (5 — 59) 
又 从 (5 一 27) 式 可 知 


| М 
іл) = У; cexp| 


літ 
Ген", а 


(5 一 60) 
к. 


н; (z) = У есек ` — 
因此 


м ом 
ur rju, (2) == > Ў c, C ex D 0 一 т) =) 


m=- Мі ~ N 
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N N 
бо ое сыссоз [ 2r(t — т) z] (5 — 61) 


өз — Мі — W 


因为 22 ‹&=1 E ut (z)us(x) 为 实数 , 故 有 


М № 
ш; (а)ш(2) =1 +2 У) У) coccosl2r т) 一 上 


т = — Мі 一 用 一 上 


(5 — 62) 
ILEESE НЕЯ Pr (9 211 BJ А ЕН ЫҚ. 

图 5-2 Ж: RE Eu НИ ы 5Ryd, 势 宽 为 0.5Bohr, 周 期 
1. 5Bobr ,运行 程序 5-1 ENGBND 得 到 的 数据 文件 ВМО, EMS 和 
PDF ,经 程序 7-2 PLTCV2 绘 出 的 前 三 个 能 态 的 能 带 E, СЕ) (图 5- 
2 (ауу, ВЕНА СИ) Е оп" СР 5-2 (06)) 以 及 在 波 矢 为 
1. 2Bohr "М ЕЛ, ЛЕ | g,, (z) СО 5-2(с)). 要 注意 的 是 ， 
图 5-2(0)rh ii r АШ АЖИ Ë Pi ti ГАЈА Е т, 为 度量 单位 , 且 对 
ЕФ КУЖ | $ xH, AK H 22 ЕВЕ A A BE ZF [š] ЕБ. 
MEK ЫН Ж ТІЗЕСІ ЖЖ ЕИ Ш.Ж 
流 子 类 型 的 说 明 , 记 录 在 程序 5-1 ENGBND 的 另 一 个 输出 文件 
OUT P. 图 5-2(c) 中 还 给 出 了 所 取 的 势 国 数 曲 线 Ст). 
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图 5-2 HE Ryd. HAA a 5Bohr, 周 期 为 1. 5Bohr М. 
个 能 态 的 能 带 E, (А) 
aH ARE | mç (| 6) 以 及 和 波 矢 为 1.2Bohr-! 时 的 几率 密度 
lw 人 zj ОНША УСЕ) 
改变 输入 参数 ,运行 程序 5-1 ENGBND, 可 以 了 解 能 带 的 特 
征 , 例如 , 随 着 输入 的 势 场 高 度 V 增 大 ,能 带 变 窜 ( 每 支 能 带 所 扩 
ЕКЕ ЕКІН 8 J.) , 8 ТН АЛЕ. 这 说 明 在 强势 场 中 电 
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子 处 于 束缚 态 , 失 去 公有 性 . 从 算得 的 有 效 质量 的 数值 可 以 看 到 : 
在 能 带 顶 部 ,有 效 质量 为 负 , 可 认为 载 流 子 为 空 穴 ;在 能 带 拭 部 ,有 
效 质 量 为 正 , 载 流 子 为 电子 . 最 后 要 提请 社 意 的 是 ,本 程序 输出 的 
LEE pu O l 是 波 矢 为 下 的 这 部 分 电子 的 贡献 ,如 要 计算 位 
É. x 处 总 的 电子 密度 ,还 需要 对 整个 波 天 空间 积分 . 


程序 5-1 具有 各 种 形式 周期 场 的 一 维 
АННЫ ТАЯ 


二 ,功能 


计算 一 组 具有 各 种 形式 届 期 场 的 一 维 晶 体 的 电子 能 带 . 有 效 
质量 与 电子 作 率 密度 ， 


三 ,原理 


1. 输入 类 型 编号 的 值 ,选择 势 的 类 型 . 输入 相应 的 势 参 数 . 

2, 根据 势 的 类 型 (矩形 势 .锯齿 势 .余弦 势 和 谐振 势 ) 分 别 撤 (5 
— 35),(5—37), (5 一 39) 和 55 一 41) 式 计算 和 将 势 作 傅 里 时 级 数 麻 开 
所 得 到 的 贡 数 项 d, AY 52 W Ха, АНЕ ЕА 
出 用 数值 积分 方法 计算 ， 

3. 按照 (5 一 33) 式 ,计算 各 短 阵 元 的 值 , 生 成 哈密 顿 矩 阵 . 再 调 
用 子 程序 EIGRAR 和 MATEIG 解 本 征 方程 (5 一 26) ,得 到 前 三 个 
能 态 的 能 带 E.G) ,n= 二 1,2,3， 

4. 根据 有 效 质量 的 定义 式 (5 一 50) 和 和 (5 一 52) ,及 (5 一 58) 式 ， 
计算 前 三 个 能 态 的 能 带电 子 ( 或 空 穴 ) 的 有 效 质量 эш (k). 

5. 按照 (5 一 59) 和 (5 一 62) 式 ,计算 在 给 定 的 波 矢 * 的 前 三 个 
能 态 的 电子 几率 密度 | 6,, >) |? ,> 是 空间 位 置 坐标 . 
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6. 将 上 述 算得 的 能 带 Е. СЬ), | ODM pato) ШІ. 
波 矢 & 或 坐标 "zx 为 自 变量 (4 从 0 增 大 到 二 ;5 从 一 也 增 至 所 ,a 


为 势 的 周期 ); 分 别 生成 三 个 数据 文件 BND.EMS 和 PDF 供 程 序 
7-2 PLTCV2 在 屏幕 上 绘图 和 用 打印 机 输出 . 


四 ,流程 图 5 一 1 


五 \ 变 量 说 明 


* 为 输入 变量 ;十 为 输出 变量 

ІРТҮРЕ ; 势 的 类 型 编号 , 1 为 矩形 势 ,2 为 锯齿 势 ,3 为 余弦 势 ,4 
为 谐振 势 ,5 ОЗ АЭА. 

SELTYN' ;是否 执行 某 项 运算 的 选择 控制 参量 . 字符 型 变量 . 

Ve : 1 TE E Sa A E ДАЛЕ ЫШ ЕЛШЕ Ж ДАГ 
为 势 的 比例 常数 .单位 ;Ryd. 

WIDTH ЖЮЗ) 8 0. (У: Воћг. 

PERIOD’ ; 势 的 周期 a. a>b. 单位 ,Bohr. 

МУАІ ;采用 线性 插入 势 时 ,在 半 个 周期 内 ,所 取 的 插入 氮 数 目 - 
2<-МУА1,<-20. 

XVAL(1D' ;I 二 1, NVAL, ТЛА ААК ”程序 已 取 
XVAL(1)=0.0,#3k ХУА (+1)>ХУАШП). # 
{У Bohr. 

FVAL(D":1=1,NVAL. 插入 势 第 工 点 的 势 高 ,单位 ;Ryd. 

NK+ ;计算 能 带 EG 314 % от" (时 ,所 到 波 失 天 的 数目 
程序 已 设置 МК--21. 

КХ (1.)“:1 = 1, МК. #1, THR k ЕНЕ. = 17 单位 : 
Bohr-!, 

EL(L,IN)+ EGN):L=1,NKl N=1,3. # L А ВЕ 
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ШІ ГІЛІ 
ТАЗА ЕС EIGRAR 
ARAMEA — 
Y 


计算 并 输出 有 效 质量 ma" 局 


算 几 率 密 度 否 ? 


计算 并 输出 几率 密度 | 如 (已 12 0—5 EIGRAR 
(8 R) MATEIG 
流程 图 5 -1 


级 E, k). 

MSTAR(L,IN)t;,L=1,NK;IN=1,3. 第 工 个 波 矢 的 前 三 个 能 态 
的 能 带电 子 ( 空 窜 ) 有 效 质量 的 绝对 值 |m; CG) |. 单位 
为 自由 电子 质量 ， 

ELECCL,IN)+ ;:L=1,NK;IN=1,3. # L ШЕН ТЕ 25 А7 
能 带电 子 ( 空 穴 ) 的 载 流 子 类 型 . 字符 型 变量 . ЕЕ ИШ 
子 型 ,EH 2:010). 

K* :需要 计算 几率 密度 的 波 失 值 , 实 型 变量 , 取 值 0 至 一 , 单位 : 
Bohr 1. 

NX1+ :计算 几率 密度 时 , ЖАМ е 轴 上 取 的 点 数 . 程序 已 设置 
Млх--21, 

ХХа,Х)*,Х.,Х=1,МХ, # LX ДНЕЙ хәл СІ-112а/20,-- 
сет. 

WF (LX,IN)+ LX=1,NX;IN=1,4, 其 中 IN=1,2,3 分 别 是 在 
第 上 及 点 的 位 置 > 处 前 三 个 能 态 , 波 矢 为 及 时 几率 密 
ВЕНИ | (x) 12,194 是 在 第 LX 点 的 位 置 x 处 势 
P V (z АН. 


75. ЗЕ РР ЖІ? ДЕЙ 


1.FOURIR(NFOUR,DC,A) 
对 势 函 数 V(z) 作 傅 里 寺 展 开 , 求 出 余弦 项 的 系数 NFOUR 


是 取 伟 里 叶 级 数 展开 的 总 项 数 ,DC 是 级 数 的 常数 项 , 即 罕 , АС) 


是 第 J 了 项 系数 dj,J==1,NFOUR. 插入 努 的 傅 里 叶 展 开 的 余弦 项 
系数 用 数值 积分 得 到 ,其余 四 种 势 的 则 是 从 解析 表达 式 算 得 ， 
2,ENERGY(K,E,EV.N,DC A .H,W) 
对 于 给 定 的 周期 势 ( 专 势 的 储 里 叶 系 数 DC Ж А 表示) 和 给 
ERIR K 计算 前 N 4 Bë % AI HEME Ж Ж. ЕЖ Н 
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的 本 征 值 和 本 征 矢 EV 时 调用 了 EIGRAR 和 MATEIG. М ЭЖ 
БЕН 的 阶 数 . 为 了 保证 一 定 的 精度 , 当 天 < 区 时, 的 初 值 为 10; 


当 K> f, N 的 初 值 为 11. 然后 每 次 增加 2, 重新 执行 此 子 程 


序 , 比 较 前 后 两 次 算得 的 能 量 本 征 值 之 差 是 否 小 于 3x10 ЖҮЛ 
于 此 量 , 正 当地 输出 结果 . 否则 ,入 分 别 以 10 或 11 为 基数 增加 8 
后 ,重复 上 述 过 程 , 直 到 精度 达到 要 求 或 N 达到 程序 设 定 的 最 大 
(Н 32( 从 10 开始 增加 ) 或 33( 从 11 开始 增加 ?为 止 . 如 此 时 精度 仍 
未 达到 , 则 打印 出 精度 未 达到 的 警告 信息 , 这 时 ,必须 将 程序 设 定 
的 维 数 最 大 值 33 改 大 再 算 . 

3, V (x) 

计算 在 z 点 处 势 的 值 的 外 部 函数 , 势 总 是 个 函数 . 

4. PROBCL ,EV,N ,X) 

计算 在 给 定 的 点 r ЕИ X K 和 给 定 的 态 矢 量 EV 的 第 
L. 个 能 态 的 几率 密度 . 

5. EIGRAR(H,EA,EV,W,N} 和 MATEIG(H,EV,N) 

计算 实 对 称 矩 阵 的 本 征 信 和 本 征 矢 的 子 程序 ,详细 说 明 参 见 
程序 3-1 ELWAVE. 

七 .计算 实例 

КАЙ ПРТҮРЕ=1),. ЛА VO=5Ryd. 势 宽 WIDTH 
= 0. 5Воһе, H WH PERIOD =1. 5Воһг. 程序 运行 后 ,计算 并 输出 前 
三 个 能 态 的 能 带 E.C), W. 5-20 43 НИЖЕ |ж, СЕ) |, р 5-2 
(p). Ж МЕ Ж K=1. 2Bohr- ,就 继续 计算 并 输出 前 三 个 能 态 在 
к RARR E FILERE |9, (z) 12, И, 5-202). 

本 程序 采用 人 机 对 话 方式 , 按 屏 幕 提 示 以 自由 格式 键入 输入 
数据 ， 

程序 运行 后 ,产生 如 OUT 的 输出 文件 ,记录 输入 参数 .前 三 
个 能 态 的 能 带 E, (k). AREE m R) Л, Ж (Ф. Ca) |? 和 和 热 
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БА V (z). 对 于 有 效 质量 ,除数 值 外 还 给 出 了 正 、 负 符号 和 载 流 子 
类 型 (电子 或 空 穴 ). 程序 还 自动 生成 BND,EMS 和 PDF = 1-98 
出 数据 文件 . BND 记录 前 三 个 能 态 的 能 带 数据 Е, Ck), EMS 记录 
前 三 个 能 态 的 有 效 质量 数据 | (&)1 ,PDF 记录 前 三 个 能 态 在 给 
ERR k 处 的 电子 几率 密度 数据 |gw《x) |? 和 势 函数 数据 V (z). 
土 述 三 个 数据 文件 可 供 程序 ?7-2 РТСУ 在 屏幕 上 绘图 并 经 打印 
机 输出 用 ,结果 了 多 图 5-2. 
运行 指令 :ENGBND OUT 


八 , 源 程序 :ENGBND • FOR 


PROGRAM ENGBND 
REAL + 8 H(33,33) ,A(33),E(33),EV(33,33),W(33) 
REAL К,Е1.(21,32.КХ(212ЬМ5ТАВ(21,3» 
DIMENSION ҸЕ (21,4),ХХ (21) 
COMMON V0,WIDTH,PERIOD,PI,IPTYPE ,FVAL{20), 
/ XVAL(20), NVAL ,NPTS 
CHARACTER SELTYN,EE,EH,ELEC(21,3) 
LOGICAL LOG ,LOG1,LOG2,LOG3 
DATA EE,EH/'"E*,'H'/ 
РІ-е3. 1415926 
NK=21 
МХ-«21 
OPEN¿(6,FILE=' ’,STATUS—’NEW’) 
QPEN(11,FILE=*BND',STATUS= "МЕУ 
OPEN(12,FILE= EMS',STATUS= NEW”) 
OPEN(13,FILE='PDF',STATUS=°*NEW') 
WRITE * ,10) 
WRITE(6,10) 
10 ЕОВМАТС RUN THE PROGRAM TO CALCULATE ', 
/ *FIRST THREE ENERGY LEVELS OF AN'/* ЕІЕ", 
/ *CTRON FOR А GIVEN PERIODIC POTENTIAL. '/) 
20  WRITE( * ,30) 
30  FORMATC WHICH TYPE ОЕ POTENTIALS DO YOU", 
ASELECT? '/' 1. RECTANGULAR, 2, SAWTOOTH, 3. ' 
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/COSINE 4. HARMONIC; 5. INTERPOLATED. '/2X, 
/'INPUT THE NUMBER ОЕ POTENTIALS (1—5), 590 
READ( * ,40) ІРТҮРЕ 
40 ЕОЕМАТ(123 А 
СО ТО (50,70,180,200,250) ІРТҮРЕ 
50 МЕТЕ x ,60) 
WRITE (6 ,60) 
60 FORMATO? THE RECTANGULAL POTENTIAL IS USED. ^) 
GO TO 90 
70 УҮБІТЕС» ,80) 
WRITE(6,80) 
80 СТОКМАТ(/" THE SAWTOOTH POTENTIAL 15 USED. %9) 
90 WRITE( + ,100) 
100 FORMAT ( INPUT THE HEIGHT ОЕ POTENTIAL :， 
/ ‚4Х,'\/о = ',\) 
КЕЛДІМ <, + у VQ 
WRITE(6,1107 Уй 
110 FORMATO THE HEIGHT OF POTENTIAL .',4X, 
/ 'V0 ==°,Е5, 1) 
IF{IPTYPE. NE. 1) GO ТО 140 
WRITE¿ + ,120) 
120 FORMATC 1МРОТ THE WIDTH ОЕ RECTANGULAR.! 
/ .4X , b — А 
ЕЕАр<», x > WIDTH 
WRITE(6,1307 WIDTH 
130 FORMATO THE WIDTH OF RECTANGULAR,', 
/ АХА =',F5. 1) 
140  WRITE( * ,150) 
150 FORMATE INPUT THE PERIOD ОЕ POTENTIAL 
/ Ха ss N) 
READ( x , x ) PERIOD 
WRITE(6. 2160 PERIOD 
160 БОВМАТС THE PERIOD OF POTENTIAL:',5X, 
/ ға =',F5. 1) | 
IF {IPTYPE. NE. 1. ОВ. PERIOD. GT. УПУГНЭСОТО 380 
WRITE( * ,170) 
WRITE¢#€,170) 
і74 FORMATO PERIOD MUST BE GREATER THAN’ 
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190 


200 


210 


220 
230 


240 


250. 


270 
280 


/ 


‚' WIDTH ОЕ RECTANGLE] °) 


GO TO 50 
WRITE( * ,190) 


WRITE(6,190) 


КОКМАТ(/"ТНЕ COSINE POTENTIAL IS USED.', 


/ 


/ 


"ІТ PROPORTINAL ТО 1—COS5(2 » PI + X/PERIOD). °) 
GO ТО 220 

WRITE( * ,210) 

WRITE(6,210) 

FORMAT THE HAMONIC POTENTIAL ”, 

'IS USED ІТ IS PROPORTINAL TO X * * 2. *) 

МЕТЕ С # ,230) 


FORMATO INPUT CONSTANT OF ', 


/ 


/ 


/ 
/ 
/ 
/ 


/ 


/ 


'PROPORTIONALITY, Vo= "0 

READ(* ,* ) VO 

МЕТЕ (6,240) VO 

FORMATU CONSTANT ОЕ PROPORTIONALIT Y” 

,” Ү0==*,Е5. 1) 

WRITE( * ,150) 

READ x , x ) PERIOD 

WRITE(6,160》 PERIOD 

ІСАРТҮРЕ. EQ. 4yV0=V0 z +. n/(DERIOD * PERIOD) 

СО TO 380 

WRITE( ,260) 

WRITE¿(6,260) 

FORMATO” THE INTERPOLATED POTENTIAL’ 

,' IS USED, WHICH IS СІУЕМ BY LINEAR '/ 

' INTERPOLATION BETWEEN POINTS SPECIFIED’ 

, OVER HALF A PERIOD. '/' THE PERIOD’ 

,' IS TWICE THE FINAL X VALUE. ?) 

WRITE ж ,280» 

ЕОВМАТ(/” INPUT THE NUMBER ОЕ POINTS,’ 
„11X NVAL = 7,59) . 

READ( » ,40) NV AL 

WRITE(6,290) NV AL 

FORMAT THE NUMBER OF POINTS,”,11X, 
'NVAL = ",12) 

IF(NVAL. GT. 2. OR. NYAL. LT. 20) GO TO 310 
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WRITEÉ( # ,300) 
WRITE(6 ,300) 
300 FORMAT’ THE NUMBER OF POINTS MUST ВЕ! 
/ ,' BETWEEN 2 AND 201 7% 
СО ТО 270 
XVAL(1)=0.0 
310 WRITEC »,35021,0.0,1 
READ(* ,* ) FVAL(1) 
WRITE(6,360) 1,0.0,1,FVAL(1) 
WRITE( * ,340}1,1 
READ( » ,* ) ХУА1,(0 
IFO(XVAL(D.GT.XVAL(I—1)) GO ТО 320 
WRITE( # ,370) 
WRITE (6,370) 
GO TO 310 
320 УКІТЕС» ,350) I,XVAL(I),I 
READ(* ,* ) FVAL(I) 
WRITE(6,369) 1,ХУАІ(1),1,ЕУАІ (р 
330 CONTINUE 
340 FORMATO INPUT THE ',12,'— TH VALUE 
/ OF X," 10X .'X( 2,” = "\) 
350 FORMATC INPUT THE POTENTIAL АТХС 
/ 212,9 E6. 3, ҰС, = *,M 
360 БОЕМАТС THE POTENTIAL АТ Х(°,12, 
/ Эу-,Е6.3,Һ УС,12,9-ңРЕ6.30 
370 FORMATO EACH X VALUE MUST ВЕ СВЕ! 
/ATER THAN LAST ОМЕ| START AGAIN. °) 
РЕЕЮР=2.0 + XVAL(NVAL) 
WRITE(6,160) PERIOD 
МРТ5--100.0% PERIOD 
380 CONTINUE 
CALL FOURIR(33,DC.A) 
WRITECx ,410) 
WRITE(6,410) 
410 FORMAT(/* THE FIRST THREE ENERGY LEVELS' 
/ , FOR А SET ОЕ WAVE VECTORS,') 
WRITE(11,420) NK 
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430 


440 


450 


ЕОКМАТ(3Х,15) 

WRITE( * ,430) 

WRITE(6,430) 
FORMAT(/7X,'K',9X,'E1',8X,'E2',8X ,"E3") 
DO 550 1,--1,МК 


 K=0.05 + РІ * FLOAT(L—1)/PERIOD 


LOG =. FALSE. 

IF (L. LE. 10)NAR 王 10 

ІЕС. GT. INAR =11 

CONTINUE 

CALL ЕМЕВСҮ(К.Е.ЕУ,МАВ,ГС,А,Н,5У) 
IF (LOG) GO TO 450 

Е1=Е(1) 

Е2--Е(2) 

Ез--Е(3) 

NAR=NAR+2 

LOG =. TRUE. 

GO TO 440 

CONTINUE 

Fl=E(1) 

F2=E(2) 

F3=E(3) 

LOG =. FALSE. 

DE=F3—F1 

IF (DE. EQ. 0.0)DE=*F3 

NAR=NAR+8 

LOG1=.TRUE. 

LOG2=. TRUE. 

LOG3=. TRUE. 
ERES=ABS((F1—E1)/DE) 

IF (ERES. GT. 3. 0E—3)LOG1=. FALSE. 
ЕКЕ5--АВ5((Е2--Е20/БЕ) 

IF(ERES. GT. 3. 0E— 33LOG2= . FALSE. 
ERES= АВЅ‹(ЕЗ--Е3)/рЕ) 

IF (ERES. СТ. 3, 0Е— 3939LOG3= .FALSE. 
IF(LOG1. AND. LOG2. AND. ІОСЗ)СОТО 530 
IF(NAR, LE. 31) GO TO 440 

ЕС. NOT.LOG1. AND. LOG2. AND. LOG3)WRITE( * ,460) 
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460 ЕОВМАТ‹1Х‚” + + WARNING ACCURACY OF E1 ON’, 
/ ' NEXT LINE UNCERTAIN ж» ’) 
IF(LOG1. AND. (. NOT. LOG2). AND. LOG3)WRITE( + ,470) 
470 FORMAT(IX,’ x + WARNING ACCURACY OF Е? ОМ? 
/ „* NEXT LINE UNCERTAIN * +”) 
IF(LOG1. AND. LOG2. AND, 5-МӨЛ.ІООЭУМЕІТЕС x ,480) 
480 БОВМАТ(1Х,” = + WARNING ACCURACY OF ЕЗ ОМ” 
/ ,' NEXT LINE UNCERTAIN * + °) 
IF((. NOT. 1.061). AND. (. NOT. LOG2)., AND. LOG3) 
/ WRITEC+ ,490) 
490 FORMAT (1X,” ж» WARNING ACCURACY ОЕ El AND’ 
/ ,” E2 ON NEXT LINE UNCERTAIN ж +?) 
Е. NOT. 1.061). AND. LOG2. AND. (. МОТ. LOG3)) 
/ WRITE * ,500) 
500 FORMAT(IX,' ж» WARNING ACCURACY OF El AND’ 
/ ‚ЕЗ ОМ NEXT LINE UNCERTAIN * * ') 
IF(LOG1. AND. (. NOT. LOG2). AND. (. NOT. LOG32) 
/ WRITE(* ,510) 
510 БОНВМАТ(1Х." ж + WARNING ACCURACY OF Е2 ° 
/ AND ЕЗ ОМ NEXT LINE UNCERTAIN * * *) 
IF((. NOT. LOG1). AND. (. NOT. LOG2). AND. LOG3) 
/ WhRITE¿ * ,520) | 
520 FORMAT(IX.' * x WARNING ACCURACY OF ЕІ АМУ” 
i ,' E2 ON NEXT LINE UNCERTAIN жж”) 
530 CONTINUE 
KX(L)=XK 
DO 540 IN=1,3 
EL(L.IN)=E(IN) 
540 CONTINUE 
WRITE( * ,560) KX(L), (EL(L,IN),IN=1,3) 
WRITE(6,560) KX(L), (EL(L,IN),IN=1,13) 
WRITE(1i,560) KX(L). (EL(L ,IIN 5: IN=1,3) 
550 CONTINUE 
560 FORMAT(IX,5F10. 4) 
СІ.О5Е(11) 
WRITE( * ,570) 
570 FORMAT(/’ DO YOU WANT TO CALCULATE THE °, 
/ 'EFFECTIVE MASS? (Y/N) 'N) 


980 


710 


720 


740 


750 


760 
770 


780 
790 


ЮЕАр<» .580» SELTYN 

ЕОЕМАТ(А1) 

IF(SELTYN. NE. *YY*'. АМО. SELTYN. NE. 'y') GOTO 830 
WRITE( * ,710) 

WRITE(6.,710)5 


FORMAT(/' THE EFFECTIVE MASSES OF ENERGY 一 
/ BAND ELECTRONS: ”) 


WRITE( * ,720) 
WRITE(6.720) 


FORMATO (THE MASS ОҒ А FREE ELECTRON, Ме" 
/ Р D 


WRITE( + ,730) 

WRITE(6.,730) 

РОЕМАТ (/7Х .'К',10Х,'№1',9Х,'М2',5Х, "M3°) 
РК? = (KX (2)—KX(1)2)5 + #2 

DO 750 IN=1,3 

MSTAR(1,IN)=2, 0 * (EL{(2,IN)—EL(1,1N))/DK2 
DO 740 L=2,NK—1 

MSTAR(OL,IN)—= (El, (I, +1.IN)+EL(L—1,IN) 


/ —2.0* EL(L ,IN))/DK2 


CONTINUE 

МЕТАК (21,13) = 2. 0 + (EL(20,IN)— EL (21.IN2) /DK2 
CONTINUE 

ГО 780 L=1,NK 

DO 770 IN=1,3 

lF MSTARtCL IN). СЕ. 0.0) ELEC (L .IN)= EE 
ІЕҰМЗТАКСО,ЫГМ».1,7, 0. 0) ELEC(L,IN)=EH 
IFLABS(MSTAR(L.IN)). СТ. 2. 0E— 6) GO TO 760 
MSTAR(L.IN)= 2. 0Е— 6 

MSTAR(L.IN)= 2. 0/ABS(MSTAR(L.IN)) 
CONTINUE 

WRITE * ,790) KXL), (MS5STAR(L IN), 


/ ЕЕС, IN) IN= 1,35 

WRITE(6,790) КХЯІЛЬ(МӘТДЕС,.15)», 
/ ELEC(L,IN).IN=1,3) 
CONTINUE 


ҒБОНМАТ(1Х,ҒГ10.4.3( Е9. 2,1Х.А1») 
WRITEC* ,800) 
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- 910 


WRITE(6,800) 


800 FORMAT (6X,'NOTE: Е--- ELECTRON,', 
/ ' н——— НОЕ. ') 
WRITE(12,420) NK 
DO 829 L=1,NK 
DO 810 IN=1,3 
810 IF(MSTAR(L,IN).GT. 50.0) MSTAR(L,IN)=50. 0 
WRITE(12,560) KX(L), (MSTAR(L,IN) ,IN=1,3) 
820 CONTINUE 
CLOSE (12) 
820 WRITE( + ,840) 
840 FORMAT¿(/' DO YOU WANT TO CALCULATE THE ， 
/PROBABILITY 一 DENSITY FUNTIONS '/' РОВ * 
/ , THE FIRST THREE ENERGY STATES? (Y/N) "О 
READ( * ,580) SELTYN 
IF(SELTYN. NE, 'Y', AND. SELTYN. NE. у’) GOTO 980 
WRITE( ж ,920) 
9202 FORMATO INPUT THE VALUE ОЕ K AS AREAL ’ 
/ NUMBER, K = ',N) 
КЕАр(#,#) K 
WRITEC* ,930)K 
WRITE¿(6,930)K 
930 FORMAT(/' THE PROBAPILITY—DENSITY FUNTIONS’ 
/ ,' OF THE FIRST THREE ENERGY STATES; *,/, 
A (KR = "„Е6.4,')' 
CALL ENERGY(K,E,EV,15,DC.,A,H,W) 
DO 950 LX=1,NX | 
XX(LX)=0.05 + FLOAT(LX—11) * PERIOD 
' X=XX(LX) 
WF(LX,4y= У(Х) 
DO 940 IN=1,3 
WF(LX,IN)>=PROBCGN,EV ,15,X) 
940 CONTINUE 
950 CONTINUE 


960 
310 


WRITE(13,420) NX 

ЧЕТТЕ * ,960) 

WRIIE6,960) 

ЕОКМАТ (/7Х,'Х',9Х,'РЮ1',7Х,'Рр2°, 7Х,°РрЗ' 


970 


980 


20 


30 


40 


59 


60 


70 


/ 


/ IX М”) 


DO 976 LX=1,NX 
УКІТЕС» ,560) XX(LX>,(WF(LX,IN) IN=1,4) 
WRITE(6,560) XX(LX) (WF(LX, IN} IN=1,4) 
WRITE(13,560) XKX(LX), (МЕХ IN), IN=1,4) 
CONTINUE 
CLOSE(13) 
STOP 
END 

SUBROUTINE FOURIR(NFOUR DC, A) 
REAL » 8 A(NFOUR) 
REAL K 
COMMON Мо, WIDTH.PERIOD, PI, IPTYPE,FVAL(20), 


/ XVAL(20), NVYAL ,NPTS 


GO TO (10,30,50,70,90) ІРТҮРЕ 


DC=WIDTH* VO/PERIOD 
DO 20 M=1,NFOUR 


ЕМ =FLOAT(M) 

А (M)=72. + COS(FM + PD + VO * 51М (ЕМ x< PI + WIDTH 
/PERIOD)/(FM * PI) 

CONTINUE 

RETURN 

ОС=%0/2. 0 

DO 40 M=1,NFOUR | 

ЕМ--ҒІОАТ«М) - 

A(M)=—2.0 + V0 (COS(FM x PI) —1.0)/(FM + PD #2 

CONTINUE 

RETURN 

DC= V0 

A(1)=—Vü0 

ГО 60 M=2,NFOUR 

A(M)=0.0 

CONTINUE 

RETURN 

DC=V0 + PERIOD * * 2/12. 0 

DO 80 M=1,NFOUR 

FM=FLOAT(M) 

A(M)= V0 + PERIOD + x< 2 + COS(FM * PD /(FM x РІ)» +2 
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80 CONTINUE 
| RETURN 
90 К= 2. 0 + PI/PERIOD 
FD=FLOAT(NPTS) 
STEP = PERLIOD/FD 
DC= V (0. 0) 
100 CONTINUE 
DO 120 І--1,МРТ8-І 
Х--Е,ОАТ(ТО + STEP 
VX=V(X>; 
DC = DC + VX 
DO 116 M=1.NFOUR 
FM=FLOAT(M) 
A(M)=A(M)>+COSC(FM X K * X) * V X 
112 CONTINUE 
120 CONTINUE 
DC=DC/FD 
DO 130 M=1,NFOUR 
A(MD=A(M) + 2, 0/FD 
139 CONTINUE 
RETURN 
END 
SUBROUTINE ЕМЕКСҮК,Е.ЕУ,М,ГС.,АЬҢ,. W) 
REAL #8 EN HN NJ ANJ EVN. N), УУ ОСМ?) 
REAL К ) | 
COMMON V0.WIDTH.PERIOD.PI IPTYPE.FVAL(20). 
/ XVAL(20), NYAL, МРТ 
МізеМ/2 
IF(2 + N). EQ. N) СО ТО 20 
N2=(N+1)/⁄2 
DO 101-1,М 
H(L,1)= (K—FLOAT(N2—I) » 2.0» PI/PERIOD) * x 2 十 DC 
10 CONTINUE 
GO ТО 40 
20 DO 30 1=1,N | 
НСІ, =(K—FLOAT(NI1—I+1) ы 2. 0 ж PIfPERIOD) к *2 十 DC 
30 CONTINUE 
40 DO 50 I=1,N+1 
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20 


10 


20 


30 


48 


J0 


60 


/ 
.IF(X. LT. 0.0) Х--Х 


DO 501--1--1,М 
JMI=J—] 
H(I,])= A(JMI)/2. 0 
H(J,D = H(I,J) 
CONTINUE 
CALL EIGRAR(H,E,EV,W,N) 
RETURN 
ЕМІ) 
FUNCTION V(X) 
COMMON V0, WIDTH,PERIOD, PI, IPTYPE,FVAL(20), 
XVALC20), NVAL NPTS 


P2=PERIOD/2. 6 

R=AMODX PERIOD) 

IF(R. GT. P2) R=PERIOD—R 

GO TO {10,20,30,40,50) IPTYPE 
B= (PERIOD -— WIDTH)/2. 0 
IF{R,LT.B V=0. 0 

IF(R. EQ. B) V=Vü0/2. 0 
IF(R.GT.B> У--У0 

RETURN 

V=R + V0/P2 

RETURN 

Q=2. 0 + PI/PERIOD 

V=Vü0üx* (1. 0—COS(Q + КО» 
RETURN 

YV=V]* Еж» +72 

RETURN 

NVl=NVAL-1 

ГО 60 I=1,NVi 

IF (R. СЕ. XVAL (1). AND. R.LT.XVAL(I+1))> J=I 
CONTINUE 


GRAD=(FVAL(J+1)—FVALOD5/COXVAL(J +1)—XVAL(J)) 


V=FVAL(D+GRAD * (R-XVAL(J)) 
RETURN 
END 

FUNCTION РКОВО-ЕУ,М,Х) 
REAL *8 ЕУ(ҺМ,М) 


10 
20 


10 


20 
30 
49 


COMMON V0,WIDTH,PERIOD,PI,IPTYPE,FVAL(20), 


ХУА(20),МУЛІ.,МРТ5 
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S=0. 0 
DO 20 I=1,N—1 
DO 10 J=I+ 1,N 
F=2,0* PI + FLOAT(J—ID/PERIOD 
S=S+EV(L,L)* EVJ, L?» COS(F * X) 
CONTINUE 
CONTINUE 
PROB=1.0+2, 0 * Š 
RETURN 
ЕМІ 
SUBROUTINE EIGRAR(H, EA EV,W,N) 
REAL +8 H(N,N) I ,EA(N) EV(N,N),W(N)}) 
CALL MATEIG(H,EV ,N) 
DO 10 I=1,N 
ЕА«О--Н(1,1» 
CONTINUE 
DO 40 JJ=1,N—1 
рО 30 KK=JJ+1,N 
IF((EA(JJ)—EA(KK)). LE. 0.0) СО TO 30 
W¿JJy=EA(0) 
EA(JJ)=FAL(KK) 
БАКЕ) = WJD 
PO 20 LN=1,N 
W(LN)=EVçLN ,J)) 
EV(LN,JJ)=EV(LN,KK) 
FV(O(LN,KK)=W(LN) 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 
SUBROUTINE MATEIG(H.,EV ,N) 


КЕЛІ, «8 Н(М,М).ЕУ(М.М>»,АМОКМ,5ТС.СОМЗӘТЕ.В,С 


REAL *8 UA,VA, WA, ,SNN :SNN2,CSN ,CSN2 , APP @, AQQ 
EPS=0, 10-5 
CONSTFEF=FLOAT(N) 


10 
20 
39 


40 
50 


60 
70 


80 


IN=0 
DO 30 J=],N 

DO 20 [=1,N 

IF ((I—J>. EQ. 0) GO TO 10 
EV(1,J)=0.0 

GO TO 20 

EV (I,J)=1. 0 

CONTINUE 

CONTINUE 

ANORM= 0. 0 

DO 54 Ј==1,3 

DO 40 І-і,М 

ТЕСІ-І). ЕО. 0) СО ТО 40 
ANORM=ANORM-+H(,J) + H(1,J) 
CONTINUE 

CONTINUE 

ANORM=DSQRT(ANORM) 

FNORM = ANORM + EPS 
ANORM = ANORM/CONSTF 

ПО 110 10 =2,N 

DO 110 IP=1,1Q—1 
IF((DABS(H(IP,IQ))— ANORM). LE. 0.) GO TO 110 
IN=1 

UA=-—H(IP ,IQ) 

VA= (H(IP,IP)—H(IQ.IQ))5/2. 0 
WA=UA/(DSQRT(UA + UA+VA + УА)) 
IF (VA. LE. 0.0) WA= —WA 
SNN=WA/(DSQRT(2. 0 + (1. 0+-DSQRT(1.0—WA » WA)))) 
SNN2=SNN * SNN 

CSN=DSQRT(i. 0—SNN2) 

DO 90 I=1,N 

IF ((1—IP). EQ. 0) СО TO 80 

IF 1-10). EQ. 0) GO TO 80 

B=H<1,IP) + CSN—H(,IQ) » SNN 
H(1,1Q)=H(LIP) + SNN+H(I,1Q) x CSN 
Н(1,1Р):=В 

CONTINUE 

C=EYI{I,IP) + CSN—EV(T,IQ) «5ММ 
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ЕУА,МОО-ЕУСО,МО» # CSN+EV(T,IP) + SNN 
EV(I,IP)=C 
90 CONTINUE 
CSN2=CSN + CSN 
STC=SNN + CSN 
АРР--НЯР,ІР) + CSN2 +H(IQ ,1Q2 + SNN2 


/ —2.0* HIP,IQ) * STC 
АӘО--НСЯІР,ІР) + SNN2+ H(1Q .1Q) < CSN2 

/ +2. 0# НОР, Ю) x STC 
HIP,IQ)= (HI{IP ,IP}— НОО 19) # STC 

/ -ҒНАР,ЛО»» (CSN2— SNN2)} 
H(IQ ,IP)=H(IP ,1Q) 

HE ,1P)= APP 

нао IIQ) = AQQ 

DO 100 1=1,N 


H(IP,1)=H(1,1P) 

190 H(Q, ,D =H, IQ) 

110 CONTINUE 

IFUIN— .NE.0) GO TO 120 

IN 一 0 
GO TO.70 

120 IF((ANORM —FNORM). GT. 0.0 СО ТО 69 
RETURN 
END 


55.2 ТЯ НЕЯ 


一 , 质 势 法 的 基本 思想 
在 近 自 由 电子 近似 中 ,假定 周期 势 场 的 起 伏 很 小 ;类似 于 (5 一 
28) 式 把 同期 势 场 作 健 里 叶 展 开 ‘ 注 意 , 现 在 考 虚 的 是 三 维 情况 》 
Ver) = Уен" (5- 63) 
AA VME RAK V. {RD У. 是 联系 天 1 k+ K, 


状态 之 则 的 矩阵 元 ,VY 很 小 意味 着 不 等 式 
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Е-Е, | > V. (5 — 64) 
ЕЕЕ С k= 0 或 接近 0 外 ), 从 而 使 计算 大 大 简化 . 但 实 
际 材料 中 周期 势 场 的 起 伏 并 不 很 小 , 竺 别 是 在 原子 核 附 近 ,库仑 吸 
引 作用 使 得 V(r 偏离 平均 值 很 远 ( 见 图 5-3 中 《a)), 因 此 (5 一 64) 
式 的 条 件 并 不 是 经 常 能 满足 的 ,这 使 得 对 大 状态 的 微 扰 计算 需要 
包含 很 多 上 Kk 十 天 的 平面 波 的 要 加 (原则 上 讲 , 凡 是 不 满足 (5 一 64) 
式 条 件 的 平面 波 都 要 计 人 )] ,使 计算 变 得 很 复杂 ,甚至 变 得 在 实际 
上 不 可 能 完成 . 但 是 ,实验 结果 开明 .对 于 许多 金属 材料 , 近 身 由 中 
子 近 似 的 计算 结果 与 它们 的 实际 能 带 结构 相符 , 这 种 表面 上 看 来 
牙 盾 的 问题 ,用 盟 势 理论 可 以 得 到 解释 . 这 就 使 能 带 计 算 大 为 简 


AAAAAL 


(d) 
5-3 HR his] n ӘК 
Са УС) (Б) W (r) 
(ӘЛЕН үс) СКВ дг) 
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在 固体 中 ,人 们 关心 的 是 价 电 子 ,在 原子 结合 成 晶体 的 过 程 
中 , 价 电子 的 运动 状态 发 生 了 很 大 变化 ,而 内 层 电子 的 变化 却 比较 
小 , 晶体 中 价 电子 波 函 数 一 般 具有 如 图 5-3(c) 所 示 的 形式 . 在 离子 
实 之 各 的 区 域 , 波 函 数 变 化 平滑 ,与 自由 电子 的 平面 波 很 相近 ;而 
在 离子 实 内 部 的 区 域 ,由 于 波 函 数 要 与 离子 实 内 层 电子 波 函 数 正 
交 , 波 函数 振荡 副 烈 . 

可 以 证 明 , 与 内 层 电子 波 函 数 正 交 的 要 求 ,起 了 一 种 排斥 势能 
的 作用 , 它 在 很 大 程序 上 抵消 了 在 离子 实 内 部 V(r) 的 吸引 作用 . | 
最 初 的 证 明 是 基于 能 带 计算 的 正 交 化 平面 波 法 . 由 此 提出 了 月 势 
的 概念 , 即 在 离子 实 内 部 ,用 假想 的 势 场 取代 真实 的 势 场 . 求解 波 
动 方程 时 , 若 不 改变 其 能 量 本 征 值 及 离子 实 之 间 区 域 的 波 函 数 , 则 
这 个 假想 的 势 就 叫做 虱 势 . 实际 采用 的 几 势 总 是 要 使 离子 实 内 部 
的 电子 波 函 数 尽 可 能 的 平坦 . 月 势 同时 概括 了 高 子 实 的 吸引 作用 
和 波 函 数 的 正 交 要 求 ,二 者 是 相 消 的 ,如 图 5-3 中 的 (0), ш К 
出 的 波 函 数 称 为 肋 波 函数 ,如 图 5-3 中 的 (d). 在 离子 实 之 间 的 区 
域 ,真实 的 势 和 腹 势 给 出 同样 的 波 菠 数 ， 

蛙 势 同时 包含 了 离子 势 和 价 电子 的 作用 ,是 一 种 有 效 势 , 它 可 
以 有 多 种 具体 形式 (在 满足 一 定 条 件 下 ), 这 就 是 熟知 的 民 势 的 非 
唯一 性 理论 . 我 们 可 以 选择 某 种 模型 势 ,其 中 包含 有 一 个 或 几 个 参 
量 , 用 与 实验 数据 或 是 与 某 种 精确 计算 方法 算得 的 结果 相 比 较 的 
方法 来 确定 这 些 参 量 . 本 章 S 5. 3 采用 的 离子 芯 模型 虱 势 ,就 是 一 
Bl. x 
00 таманы ИЕНЕН ЕН, 与 气体 中 的 离子 不 

同 ,固体 中 的 离子 是 浸没 在 电子 云 中 的 , 它 的 电荷 使 电子 云 极 化 ， 

这 种 极 化 反 过 来 起 着 屏 项 作用 . ЗЕН, ЖЕМЕНЕЙ 
是 将 势 场 的 传 里 时 分 量 了 (扣除 以 电子 气 的 介 电 函数 «(Ю.К 为 
ні. | | 

人 们 用 厢 势 方法 对 很 多 金属 材料 做 了 能 带 计 算 , 由 于 离子 势 
的 吸引 作用 和 波 函 数 正 交 要 求 二 者 的 作用 是 相 消 的 ,使 得 计算 结 
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果 接 近 于 近 上 自由 电子 模型 , 性 势 方法 也 被 广泛 用 于 研究 半导体 中 
的 价 带 和 导 带 等 问题 . 


=. ЖИНА ВЕТ 


ЖАНЕ, RARESA 
H =T(k) + V,(r) (5 — 65) 
式 中 了 (和 为 动能 项 ,YY 为 磺 势 项 . 
由 于 势 场 的 周期 性 ,Y,(r) 亦 可 作 傅 里 叶 级 数 展开 : 
V,() = 2,Уке”-” (5 — 66) 


如 前 所 述 ,K, AAR, Ve 是 联系 天 与 天 十 于。 R 25 В ВЕ 
元 . 也 正如 前 面 分析 的 那样 ЖЕ 2 — Д 2355, ЖЫ Vr 较 小 . 只 有 当 
状态 能 景 接近 相同 时 ,两 个 平面 波状 态 的 相互 作用 才 是 重要 的 . ЖК 
只 和 需 考 嵌 少 数 刀 个 平面 波 , 这 样 久 期 方程 的 阶 数 就 很 低 了 . 

因为 A 是 面 心 立方 点 阵 ， 
它 的 倒 格 子 是 体 心 立方 点 阵 ,其 
第 一 布 里 渊 区 如 图 5-4 ТЯ. 我 
їл ©” =o. 823 a.u. (原子 单位 ) 
作为 波 数 单位 . 布 区 中 的 对 称 点 
W 相对 于 原点 的 坐标 是 (元 ， 
0,1). 考虑 在 三 点 区 域 的 能 带 ， 
在 此 点 , 波 和 所 上 的 正 交 平 面 波 与 
ЖЕЖ Е-<(0.0,22,6-(1,1,1) 图 5-4” 体 心 立方 品 体 的 
和 一 (1,1,1) 的 正 交 平面 波 的 简约 布 里 湖区 
能 量 相 近 , 故 应 计 入 联系 无 与 这 三 个 正 交 平 面 波 的 矩阵 元 V, ao fl 
Vu; 而 与 所 有 其 它 状态 的 混合 省 可 忽略 , IS] ku 38 dl НГЫ Л 
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Го Қаға Уш Vin 


a |Ум ТІК- (0,0,2)] Vin Vii 
Тн Fi T[k — (1,1,1): V,oo 
Viii Viii V, ТІЕ а, — 1,1)] 
(5 — 67) 
AP TORRI k ERNE PE A AAE Vof Vau ЖЕҢЕ 
PREIE. 
如 果 认 为 相 邻 心态 没有 交 选 ,采用 球形 近似 ,TCD) 可 表示 成 
ТҚ) = ak’ 《5 — 68) 


这 时 矩阵 H 中 有 三 个 未 确定 的 参数 Уа Уа ЕПТЕН ИА 
它 方法 已 计算 得 到 的 多 ACG ,0,1) 的 能 量 值 来 确定 ， 


利用 方程 Не Ene ARREO HEW, DIRK 
入 短 阵 (5 一 67) 式 , 解 出 该 矩阵 的 能 量 本 征 值 为 
E = 1. 25а — V ЙІ 1. 25а + У, ә 20, (5 — 69) 
上 式 中 的 第 一 式 给 出 的 能 级 是 简 并 的 . 将 赫 因 (Heine) 给 出 的 相应 
能 量 的 计算 值 1. 012 Ryd. ( 简 并 ),1.063 Ryd 和 1. 182 Ryd 代入 
(5 一 69) 式 ,算得 
а = 0. 8535 Ryd. Vas = 0.550 Куа, Уц, = 9. 0295 Ryd, 
《5 — 70) 
正 像 预期 的 那样 , 非 对 者 元 的 值 很 小 . 

PIE R BE H 完全 已 知 , 改 变 丰 候 , 可 以 求 出 能 带 内 任 一 点 的 
ВЕ. 上 面 讨论 的 是 取 4 一 OP 好 ( 引 个 正 交 平 面 波 ) 的 计算 结果 ， 
ЖІ Ум, VƏ Т О. WSE 1-- ОРУ 的 计算 结 

图 5-5 是 用 按照 上 述 原 理 编制 的 程序 5-2 PSPBND 计算 ,经 
程序 7-2 PLTCV2 绘 出 的 厦 势 法 计算 的 Al 的 能 带 结构 , 计算 中 
所 取 的 PX XW, WDO TU 和 UX 是 体 心 立方 倒 格 子 的 五 不 高 对 称 
铀 . 国 (4) 是 1 一 OPW, 图 (5) 是 4— OPW 的 结果 . 比较 两 图 可 见 
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在 远离 布 里 洲 区 边界 的 区 域 ,从 1— OPW 和 4— OPW 计算 的 E-k 
关系 类 似 , 具 有 近 自 由 电子 能 带 的 抛物 线 特征 . 而 在 布 区 边界 上 ， 
两 者 相差 较 大 ,例如 1 一 QPW 的 结果 是 高 度 简 并 的 ,而 4 一 OPW 
计算 的 能 带 分 开 ,出现 能 院 . 由 此 可 见 , 在 布 区 边界 部 分 ,应 取 较 多 
的 正 交 平面 波 ,才能 得 到 正确 的 结果 . 由 于 程序 中 计算 ГХ 轴 的 能 
带 时 实际 上 只 用 了 2x 2 的 哈密 顿 和 矩阵 , 故 只 算出 了 两 个 能 着 , 工 共 
О L fe E РАЈА S B 4 ЖТ Н. 


程序 5-2 EAER EJE YF WJ ВЕТ 


二 ,功能 


用 1 一 OPW 或 4 一 OPW 的 隅 势 法 ,计算 金属 Al 的 能 带 结 
构 ， 


三 ,原理 


1. 根据 输入 的 正 交 平面 波 数 目 , 程 序 自 动 赋予 Al 的 相应 的 
限 势 参量 :路 势 傅 里 叶 分 量 的 系数 和 动能 项 的 比例 系数 . 

2. 选 定 体 心 立方 倒 格 子 的 五 个 高 对 称 轴 .TX, 和 WwWT, FU 和 
UX 在 第 一 布 里 洲 区 中 的 部 分 ,将 其 等 分 . 所 得 到 的 合格 点 可 找 述 
电子 的 状态 , 即 滤 矢 大 

3. 对 每 一 个 对 称 轴 上 的 给 定点 ,按照 (5 一 67) 和 (5 一 68) 式 
建立 哈密 顿 矩阵 . 调用 子 程序 EIGRARP 和 MATEIGP, 解 本 征 值 
方程 65 一 26) НИЛ ТЕН ЖАН E.C). 

4. 为 了 和 将 各 对 称 轴 的 能 带 绘 在 同一 图 上 , 取 累 加 波 矢 所 代替 
真实 波 撩 上 .方法 是 :将 各 点 的 波 和 撩 上 按 TX,XW,WT,TU 和 ОХ 
的 顺序 排列 ,TX HA 39k ВЯ ШЕ Ж, XW ЖЕЙ Ж ДИБ А Ж 
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U 
(0,0,0) лы 0,1) "ш (I ha.no 


l 141 
(0,0,0) ао (0,0,0) (1,701.00 


图 5-55 PUS АЙН АЯҒАН 
(421-ОРМ(%924-ОРЧЯ 


真实 波 矢 加 上 前 一 轴 TX 的 端点 X RIAR. WT {ШЕН ЖШ 
322 


法 和 失 是 真实 波 天 加 上 XW $H K 3 W É 3 ШВ 5: 余 此 类 推 ,完成 
k КЛУ. | 

5. 生成 输出 文件 ALBDAT, 包括 累加 波 矢 总 数 . 累 加 波 和 所 的 
值 所 以 及 相应 的 能 量 本 征 值 Е.О. 调用 作 图 程序 7-2 PLTCV2 
绘 能 带 图 . | 


五 ,变量 说 明 


x 为 输入 变量 ,十 为 输出 变量 . 

NOPW" :所 也 的 正 交 平面 波 数目 . 1 为 1 一 DPW ,4 为 4— OPW. 

V200,V111 :分别 是 持 势 的 傅 里 时 分 量 的 系数 V, fl Vin. 

ALPHA :动能 项 的 比例 系数 «. 

GAMAX,XW,WGAMA,GAMAU,UX,TOTAL :前 五 个 分 别 是 
体 心 立 方 倒 格 子 的 五 个 主要 对 称 轴 TX,XW, WT ,TU 
和 UX 在 第 一 布 里 谢 区 中 的 长 度 . TOTAL 是 它们 的 总 
和 . 单位 为 之 ,a 为 品格 常数 

LM. LMP: (LMP-1) 为 将 对 称 轴 从 始点 到 终点 所 等 分 的 段 数 . 对 
于 TX,XW,WT,TU 和 UX 和 轴 , 程 序 分 别 取 LMP=11, 
5,10,10 ĤI 5. LM=41 是 上 述 五 个 轴 的 LMP 的 总 和 ， 

Kl1,K2,K3; 在 对 称 轴 上 第 LP 点 (LP==1,LMP) 的 波 矢 的 三 个 
ДЕ kk, A Ru- 

KK(L,D*,L=1,LM,I=1,3. 将 程序 所 取 的 对 称 轴 上 的 点 按 

| TX, XW, WD rU 和 UX 的 顺序 重新 统一 编号 时 ,第 LL 
点 的 波 矢 的 三 个 分 量 有 站， 天， 

KAXIS(L)*,L=1,LM. 统一 编号 的 第 世 ЕНУ PIER, EEA 
点 的 真实 波 矢 加 上 前 一 个 对 称 轴 上 最 后 一 个 点 的 累加 
波 矢 ,此 票 加 波 矢 用 作 绘 制 关 于 ГХУГОХ 的 能 他 图 的 
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F 始 | 


输入 QP 到 的 数目 


U; Í = 0. 8550 
Vi i= 0. 0295 
а==0. 8539 


LP=1 HEREA КІН: . 


ИГХ КІРЕ ХАН = AARAA 
ӘДЕ 


解 特征 值 方程 求 得 第 JI 总 的 能 量 本 征 值 


LE>LME 2—4 ІРІР+1 


ү . 


输出 波 和 天 在 [ 改 轴 上 的 能 带 五 () 


人 


依次 计算 并 输出 滤 失 上 在 XW，WT，TU 和 UX 轴 上 的 能 市 EK) 


HEOR ЖЕЛІН АА: 从 小 到 大 的 顺序 排列 
生成 连 出 数据 文件 ALBDAT 供 绘 能 带 图 用 


| £ ж) 
流程 图 5 一 2 
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еі. 
ELEX(L.,IN) U EX(IN):L= 1,LM IN=1,4. B L 4-1 8 IN 
个 能 态 的 能 鲁 本 征 值 , 绘 能 带 图 时 作为 纵 坐标 . 


六 , 子 程序 说 明 


1. HAMILT (KI,K2,K3,NOPW,H) 

局 照 (5 一 67) 和 (5 一 68) 式 ,计算 波 秋 为 上 ЕЖЕІЛЖРЕ Н. 
КІ.К2# K3 是 上 的 三 个 分 量 ,NOPW 为 正 交 平面 波 数 目 ， 

2. ARRANG(Y,NP,NG.X,W) 

将 日 变量 数组 X(NP) 和 函数 数组 Y (NP,NG) 按 自 变量 从 小 
到 大 的 顺序 重新 排队 .家 为 工作 数组 . 

3. EIGRARP(H,EA,W,N} 和 MATEIGP(H,N) 

计算 实 对 称 矩 阵 II Ж {Н EA 的 子 程序 . 它们 与 子 程序 
EIGRAR 和 MATEIG 类 似 , 只 是 此 处 省 酷 了 计算 本 征 矢 的 部 分 ， 
关于 EIGRAR 和 MATEIG 的 伴 细 该 了 明 参见 程序 3-1 ELWAVE. 


七 .计算 实例 


由 于 本 径 序 只 计算 铝 的 能 带 , 有 关 参 数 都 已 在 程序 中 设 定 ,用 
户 内 种 按 屏 幕 提问 ,键入 所 选择 的 正 交 平面 波 数 目 即 可 , 如 需 计 算 
其 它 材 料 的 能 带 结构 ,用 户 应 在 程序 中 改动 有 关 部 分 . 

程序 运行 后 ,产生 如 OUT 的 输出 文件 ,记录 在 五 个 高 对 称 轴 
十 波 笑 天 的 三 个 分 量 和 相应 的 能 量 本 征 值 ЕЕ. Fë F y: Ë J) E 
成 输出 数据 文件 ALBDAT ,记录 累加 波 矢 的 总 数 , 累 加 波 矢 的 值 
和 相应 的 能 量 本 征 值 E,(8'), 供 程 订 7-2 PLTCV2 在 屏幕 上 上 绘 
国 并 打印 输出 用 . 绘图 时 输入 的 数据 为 NCV = 4, XMIN = 0, 
XMAX=4,IXSCL—=0,YMIN=0,YMAX=3. 5,[YSCL=—7. 结果 
见 图 5-5. 

运行 指令 :PSPBND OUT 


八 , 源 程序 :PSPBND + FOR 


PROGRAM PSPBND 
REAL + 8 Н(4,40,Н1(4,42,ЕХ<4)3,7У(4),Е,ЕХ«(41,40 
REAL К1,К2,К3,КАХ15(412,КК(<41,3) 
COMMON ALPHA ,У200,У111 
DATA GAMAX, XW, .WGAMA ‚GAMAU, UX, TOTAL/ 
/ 1.0, 0.5,1.118,1. 06,0. 3536,4. 0316/ 
OPEN(6,FILE="* ',STATUS="NEW'”) 
OPEN(10,FILE='ALEBDAT',STATUS=— NEW') 
WRITEC< ,10) 
10 FORMAT (' INPUT THE NUMBER OF OPW ', 
/ 1:1--ОРУҒ; 4:4--ОРУУ); МОРУ = 50 
КЕДІКж,ж) МОРУ 
WRITE(6 20) МОРУ 
20 FORMAT( CALCULATE THE ELECTRON ENERGY ’ 
/ vBAND OF ALUMINUM BY PSEUDO РОТЕМТІА М 
7° METHOD WITH *,11,'—OPW', 0 
V200=0. 0 
Y111=0.0 
IF (NOPW, EQ. 1) GO TO 30 
ТЕСМОРУУ, NE. 4) GO TO 700 
V200=0, 0550 
У111--0. 0295 
30 ALPHA=0. 8535 
WRITE( * ,100) 
WRITE(6.,100) 
100 FORMAT (THE E—K DATA FOR THE SYMMISTRY ， 
£ + 1" AXIS OF GAMMA --Х (0,0,0)—(0,0,1).: °) 
WRITE( * ,110) 
WRITE(6,110) 
1102 FORMAT(' (КІ, К2,Қ39,0Х-ЕХІ,7Х. 
/ 'EK2?' 7X ,'EX1*,6X, 'EX2) 
рО 170 LP=1,11 
K3=0. 1 x FLOAT(LP-—1) 
К1=0. 0 
К2--0.0 
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120 
130 


160 


170 


200 


210 


KK (LP ,1)=K1 

KK(LP,2)=K2 

KK(LP,3)=K3 

KAXIS(LP)=K3 

CALL HAMILT(K1,K2,K3,4,H) 
DO 130 l=1,4 

DO 130 J=1,4 

ІЕС. EQ. J) GO TO 120 

НІ (I J)=0,0 

CONTINUE 

H1(1,2)= V200 

Н1(2,1)--У200 

CALL ЕТБКАКЧЯН,ЕХ, 77,4) 

ГО 140 ІМР--1,2 

ІМ--ІМР--2 
ELEX(LP,IN)=EX(INP) 

CALL EIGRAR(H1,EX,W,4) 
DO 150 ІМ--1,2 

ELEX (LP, IN) =EXMUN? 
WRITE ( * ,160) ІККАР,1),1=1,3), 


ҮУКІТЕ(6.160) (ККСЯ,Р,І2,1--1,3), 


ҒКОҚМАТАХ, С,Е4.2,1Х,Е4.2,1Х,ЬҒ4.2,”)”, 


/ 3Х,4Е10. 4) 


CONTINUE 

WRITE< ж ,200) 

WRITE(6,260)5 

FORMAT (/" THE E—K DATA FOR THE SYMMISTRY” 


/ ‚* AXIS OF X— W (0,0,10--(0.5,0,1)9 


WRITE( # ,210) 
WRITE(6,210) 
FORMATO «КІ .Қ2 .К3)%10Х,"ЕХ1%7Х, 


/ "ЕХ? , 7X EX3", 6X P EX4') 


DO 230 LP=1,5 
K1=0.1*=FLOAT(LP) 
К2--0.0 
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228 


239 


500 
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K3=1.0 

L=LP-+-11 

KAXIS(L)y=K1+1.0 

KK<(L,1>=K1 

КК(1,,23--К2 

КК(1.,3)3- КЗ 

CALL HAMILT(K1,K2,K3,4,H) 

CALL ЕКІСКАК(Н,ЕХ,УУ/,4) 

ГО 220 ІМ--1,4 

ELEX(L,IN2=EX(IN) 

ҸЕІТЕС #,‚160› (KKL, 1),1=1,35, 
(ELEX L, ,IN),IN=1,4) 

WRITE(6,;160) «ККЯ,,12,1--1.3», 
(ELEX(L ,IN),IN=1,4» 

CONTINUE | 

WRITEC + ,300) 

WRITE(6,300) 

FORMAT(/' THE E—K DATA FOR THE SYMMISTR Y?’ 

AXIS ОҒ GAMMA W (0,0,0) — (0. 5,0,1):') 

МЕГГЕ + ,210) 

WRITE(6,21I06) 

DO 320 LP=1,10 

K2= 0. 0 

К3--“0.1«ЕОАТСІР--1) 

Кі--0.5» КЗ 

L=LP+16 

KK(L,i)=K1 

KKL, 2)=K2 

КК(1І,,3)--К3 


` KAXIS(L)=GAMAX+XW+WGAMA » (1. 0—K3) 


CALL НАМП/Т(К1.,Қ2,К3.4.Н) 
CALL EIGRAR(H,EX,W,4) 

DO 310 IN=1,4 

ELEX(L.IN)= EXIN) 

WRITE( + ,160) (KKL. D,I1=1,3), 


/ (ELEX(L. IN) IN=1,4) 


Ү?КІТЕ(6.,160) (KK(L,[), 151,3), 


/ (ELEX(L.IN),IN=1,4) 
328 | 


320 


400 


410 


420 


500 


/ 


CONTINUE 
WRITE( = ,400) 
WRITE(6,4006) 


ҒОКМАТС/" THE E—K DATA FOR THE SYMMISTRY', 


' AXIS OF GAMMA — 0 (0,0,0) — (0. 25,0. 25,1),') 
МЕТЕ ж ,210) 

ХУКТІТЕ(6.210) 

DO 420 ЕР--1,16 

К3-0.1»«ЕІОАТСІР) 

K1=0. 25 * КЗ 

К2--КІ 

L=LP+25 

KK(L,1)=K1 

KK(L,2)= K2 

KK(L.3)=K3 

KAXIS(L) =GAMAX+XW+ WGAMATGAMAU * КЗ 
CALL НАМПИ,Т(К1,К2.К3,4.Н) 

CALL ЕІСКАК(Н,ЕХ. W,4) 

PO 410 IN=1,4 

ЕІЕХСО,ММО-“ЕХСМ) 

WRITE( ж .1602 (KK(L,D ,T=1,3), 


/ (ELEX(L,IN) ,IN= 1,4) 


/ 
CONTINUE 


WRITE(6,5060) 


/ 


WRITE(6,160) (КЕС,,ГО,1--1,3», 


FORMATI(/*' THE Е-Е DATA FOR THE SYMMISTRY， 


. AXIS OF 0-Х (0. 25,0.25,1)— (0,0,1), 
WRITE< * ,210) 
WRITE(6,210) 
DO 520 1Р=1,5 
K3=1. 0 
K1=0. 2 + 0. 25 + FLOAT(LP—1) 
К2= К] 
= Р +36 
KK(L,1)=K1 
KKÉ(L,2)=K2 
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910 


/ 


/ 


220 


600 
610 


700 


10 


339 


KK{L,3)=K3 
KAXIS(L)=TOTAL—UX + Kl + 4.0 
CALL HAMILT (K1,K2,K3,4,H) 
CALL EIGRAR(H,EX,W,4) 
DO 510 ІМ--1,4 | 
ELEX(L,IN)=EX(IN) 
WRITE( # ,160) (KKL, D,I=1,3), 
(ELEX(L,IN),IN=1,4) 
WRITE(6,160) (KK(L ,1) ,1=1,3), 
(ELEX(L,IN) ,IN=1,4) 
CONTINUE 
CALL ARRANG (ЕГЕХ ,41,4, KAXIS, W) 
WRITE(10,'(38X,"”41”)” 
DO 600 L=1,41 
WRITE( ж ,610) KAXIS(L), (ELEX (L,IN),IN= 1,4) 
WRITE(10,610》 KAXIS(L),(ELEX(L,IN),IN=1,4) 
FORMAT(1X,5F10. 4) 
CLOSE(10) 
STOP ` 
END 
SUBROUTINE HAMILT(K1,K2,K3,NOPW,H) 
REAL + 8 HINOPW ,NOPW) 
REAL K1,K2,K3 
COMMON ALPHA,V200,V111 
H(1,1)=K1+*K1+K2 * K2+ K3 * КЗ 
H(2,2)=K1+K1+K2 *K2+ (K8—2) x (K3— 2) 
K1=(K1—1)* (K1—1) 
K3=(K3— 1) * (K3—1) 
K1=K1--K3 
Н(3,3)=К1+(К2—1) * (К2—1) 
H(4,4)=K1+(K2+1) *《K2 十 1) 
DO 10 I=1,NOPW 
НЧ,р = АТРНА * H(I, D 
CONTINUE 
МА-МОРУ-і 
DO 20 П=1.МА 
ІК =1+1 ` 
ГЮ 20 JJ=IK ,NOPW 


20 


30 
40 


10 
20 
30 


10 


H(I[,JJ)= V111 
CONTINUE 
H(1,2)= V200 
Н(3,4)--У200 
ГО 40 I=1,NOPW-—1 
DO 30 J=2,NOPW 
H<J 上 一 HT J) 
CONTINUE 
CONTINUE 
RETURN 
END 
SUBROUTINE АККАМОТҮ.МР,МС.Х,У/) 
DOUBLE PRECISION YNP,NG),W(NG) 
DIMENSION X(NP) 
DO 30 J=1,NP—1 
DO 20 K=J+1,NP 
IF((X(J)—X(K)). LE. 0. 0) GO ТО 20 
XW=X(J) 
X(J)=X(K) 
X(K)=XW 
DO 10 I=1,NG 
WID=Y0 ,1 
Y (I)=Y(K ,1) 
YK D=W(1) 
CONTINUE 
CONTINUE 
CONTINUE 
RETURN 
END 
SUBROUTINE ЕІСКАЕРІН,ЕА,У/,М) 
DOUBLE PRECISION HIN N) ,EA(N>,W(N) 
CALL MATEIGP(H,N) 
DO 10 I=1,N 
ЕАС)=НА1,1) 
CUNTINUE 
DO 30 J=1,N—1 
DO 20 K=]+1.N 
IE ((EA (P --ЕА (КЭ), LE. 0.0) GO TO 20 
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29 
39 


10 
20 


40 


W(J)=FA0 
ЕА(р-ЕАЧК) 
ЕАК) =) 
CONTINUE 
CONTINUE 
RETURN 
END 
SUBROUTINE MATEIGP(H,N) 
REAL + 8 H(N,N), ANORM 
Е--0. 000001 
CONSTF=FLOAT(N) 
IN=0 
ANORM=0.0 
DO 20 J=1,N 
BO 10 1=1,N 
IF((J—1)}. EQ.0) СО ТО 10 
АМОКМ--АМОВМ--НА,Бр»НЕКЕ.р 
CONTINUE 


CONTINUE 
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АМОВМ--ІГЗОЕТСАМОВМ) 

ЕМОЕМ-АМОКМ»Е 

30 ANORM= ANORM /CONSTF 

DO 80 10:-2,М 

М--10--1 

DO 80 ІР--1.М | 
IF((DABS(—(H(IP,1Q — АМОКМ?. LE. 0. 0) СО ТО 80 
IN =] 

UA=—H(IP ,1Q) 

МА--"ХНАР,ІР)-Н(10,1092/2.4 
WA=UA/(SQRT(UA x UA +УА + VA?) 

IF (VA.LT.0.0) МА = -WA 

SNN=WA/(SQRT(2. 0 + (1. 0+—-SQRT(1.0- WA + WA Dy)') 
SNN2 一 SNN * SNN 

С58М--ЧОЕТ(1.0-5ММ29 

DO 60 1--1.М 

IF ((I—IP), FQ. 0) GO TÜ 50 

IF ((I—1Q). EQ. 0) GO TO 50 

B=H<í1, IP) + CsSN—H(1,1Q) * SNN 


НОМОО-НО,ІР) + SNN+H(I.IQ) + CSN 
НСЬІР)--В 
80 CONTINUE 
60 CONTINUE 
CSN2=CSN + CSN 
SIC=SNN * CSN 
APP=H(IP,IP) + CSN2+H(Q 19) + SNN2 


/ —2. 0 * НКІР,109» STC 
AQQ=H(IP, IP} + SNN2+H(IQ 10) * CSN2 

/ +2. 0 * НИР.) x STC 
HP, 1Q)=(HAP,IP)—HK(IQ,1Q)) * STC 

/ +НОР,0) * (CSN2—SNN2) 


HQ ,IP)=H(IP ,IQ ) 
H(IP,IPy= APP 
H(IQ IQ )j= AQQ 
DO 70 [= I,N 
H(IP,D = H(IL,IP) 

70 HQ ,I2=H(i,1Q) 

80 CONTINUE 

| IF((IN—1). NE. 0) СО ТО 90 
IN=0 
СО TO 40 

90 І-ҒКСАМОЕМ--ҒЕМОЕМ», GT. 6. 0) СО ТО 30 
RETURN 
END 
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关于 电子 密度 分 布 的 重要 性 ,在 5.1.5 中 已 经 叙述 . 本 节选 用 
异型 灰 势 ,并 考虑 价 电 子 相 互 作用 ,计算 唱 体 Al(110? 面 的 电子 密 
度 分 布 ， 

ЕЛМЕН ЖЕЛЕ ЕҢ ТЕ E E Л ЖЛ 5 

[T + W (r) А = Ef (5- 71) 
AF Wr) g ER НИТ д 写成 平面 波 波 函数 的 线性 组 合 : 
(ФК; Ж) 
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如 果 以 aoCk) 为 单位 ,那么 KK 二 0 的 项 即 为 零 级 波 函 数 ,按照 微 扰 
理论 ,在 一 级 近似 下 ,其 余 的 系数 为 
¿K -- К, IW (r) |К) 


0 е z 
zg — |k + К?) 


由 此 得 到 电子 的 几率 分 布 函数 
а = [1 + 2, alke + аг (kje r] (5—74) 


对 于 所 有 电子 ,上 式 中 的 稼 ЕТІ :反映 它们 的 差异 的 是 振荡 
的 一 级 项 . 遍及 所 有 K, 求 和 ,就 得 到 总 的 电子 密度 (常数 项 除外 ): 


a(k) = (5- 73) 


"б = (буту) У аа Юе" + а; бое) 
(5 — 75) 
由 于 晶体 的 周期 性 ,可 以 对 ntr) 进 行 传 里 叶 展开 
| п(ғ) = д1 те!" (5 一 76) 
只 考虑 单个 坟 .比较 (5 一 75) 和 (5 一 76) 式 ,可 以 看 到 有 两 项 对 п, 


Е 2) )|awa, (К) Ба (0) (5 — 77) 


MERRIA а ЮК а t (k SR k 和 上 积分 ,其 结果 不 
Жж. ВУК (5—73): 91,42,04) =а, (k), О (S—77)sË r 83 
两 项 相等 . 这 样 利用 (5 一 73) 式 ,可 将 (5 一 77) 式 改写 为 
4 БЕЛІ За КИ Ж 
(27) 7 Ba k +K» 


如 果 月 势 W 是 局 域 势 , 则 {x 十 下 |W1K) 与 无 关 ， 可 将 其 取出 各 
分 号 .这 时 (5 一 78) 式 成 为 

dk КД) rs атсы. — ki) 

Ca к. -a — K: — 2K k, 


(5 — 78) 


(5 — 79) 
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AT z, 是 天 沿 下 方向 的 分 量 . (5 一 79) 式 可 用 标准 积分 表 进 行 积 
分 ,得 到 
ті, + К, LA — |! 
2z='h° 27 


КЕ!) 

(5 一 80) 
JkAt т, 

至 此 已 从 月 势 得 到 了 电子 密度 ,下 面 再 利用 电子 密度 来 计算 
屏蔽 势 . 引用 静电 势 和 电荷 密度 关系 的 泊 松 方程 


ХФ = — 4лр З 《5 一 81) 

将 上 式 变 换 成 屏 南 势 和 电子 密度 的 健 里 叶 分 量 n 之 加 的 关系 后 ， 
可 写成 : 

W!, = 4ле?п,/ R? (5 一 82) 


А МИ (НКИК) – СЕУ К, ИИ |k. 利用 (5 一 80) 和 (5 一 
81) 式 可 消去 mm ,并 利用 非 屏 蔽 矩阵 元 和 屏蔽 符 阵 元 的 关系 
(k + K,IIWIk) = ik 4 КИ [АУ ЕСЕ) 《5 一 83) 
HEE HKW |k}. (5 一 83) 式 中 的 ЕСК, 0106 3 (Hartree)jr H El 
MRA THEA: 
К) = 1 + нә Ë т 1 Lo 16 一 84) 
如 困 在 位 置 Rj ,Re R R, fg NAAT ALE r 处 的 
HT BJ ES АЛЕ; 
W°(r) = 21W°([r — R,|) (5 — 85) 
) 


这 时 
(k + K,|W°(r)|k> = -al ГАТА "249% |r — R,|3e ”dr 


п Уе“ «Ж. [ее “(ғ r RO WO 


(|r — R yet"e-1p dr (5 一 86) 
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在 最 后 积分 中 ,r 一 RR 已 经 变 成 标准 变量 . 为 方便 起 网 , 将 此 矩阵 
元 写成 下 列 形式 : | 

(k + K;|W° = s(K,) (k + K, |W" |k} (5 — 87) 
式 中 s(k,) = К "Қазақ (5 — 88) 

| ] 
称 为 结构 因子 , 它 与 $ 2. 2 定义 的 结构 因数 a(E) 的 关系 是 a(k)= 
N <s(k)s" (k)>. 
(k + K, | И7° | 大 >= S [е-'а*ко-е-арүуө [r ЕЕ rie “Ndr, 
《5 — 89) 

0 一 区 为 每 个 离子 的 体积 


由 (5 一 82}) 式 可 得 

K:W!, 
Ane’ 

Ж ОЯН E BE t E T АЛЛЕЛІ a a ИШ AAP 
(r) 


п; = 


(5 一 90) 


_ л), 
~ Z 


P (ғ) 《5 — 91) 


式 中 2 为 每 个 离子 的 导电 电子 数 . 略 去 (5 一 74) 式 中 的 常数 项 , 相 
对 密度 成 为 


P'(r) = 2 Кез" 005 — 92) 
(Q K:W!, 
其 中 p, = — 7 (5 — 93) 
OS EXT ҤЕ, {ДР ДЕЗЕ. Т. 
? 1/2 
HARKER k = 34 (5 — 94) 
| _ Же (ЖА _ 


现在 返回 来 考虑 (5 一 74) 式 中 的 常数 项 (KK 二 0). CEFR 
ИД. 因为 在 属 势 理论 中 ,应 该 用 正 交 平面 波 代替 平面 波 , 这 相当 于 
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在 每 个 位 置 局 域 损失 (Z* 一 Z) 个 电子 ,Z* 称 为 有 效 电荷 , 它 可 由 理 
论 计算 得 到 . 当 重 新 归 一 化 成 用 守 代 奉 一 个 均匀 的 单位 相对 电荷 
时 ,P(r) 可 写 为 ， 


Рег) = 55 + УУ ps Ken (5 — 96) 
i 
由 理论 计算 可 知 
Z" = (1 + (kIP |k>)Z (5 — 97) 
=R P ARRI. 所 以 
Е m = 1+ (|P Ik) (5 — 98) 
对 于 AlL, НИН (61210) = 0. 0790,00 (5-98) u[ Ж 
5. = 1 + 0.0790 (5 — 99) 


由 《5 一 88) 式 可 知 , 当 KK 为 倒 格 点 波 天 K; 时 ,结构 因子 sK) 
一 1 ,为 其 它 值 时 5 并) 一 0, 故 (5 一 96) 臣 可 写 为 
Р(г) = 1+ (k[P|k >+ Уре" (5— 100) 
J 


结构 因子 为 实数 , 且 对 应 每 个 下 项 ,有 一 个 一 上 ;项 (关于 倒 易 原 
点 对 称 ), 故 (5 一 100)? 式 成 为 

P(r)=1+(k|P |ky+2 21'рсозК, * г) (5 — 101) 
从 理论 上 讲 , 上 式 应 对 倒 空 间 所 有 倒 格 点 (元 穷 多 个 ) 求 和 ,但 实际 
计算 时 是 无 法 实现 的 ,一 般 取 和 :<<5.0 REPT. 

下 面 讨论 计算 A1(110) 截 面 的 电子 密度 分 布 时 倒 格 点 的 选 
取 , 此 时 可 选 晶 带 fl110] 鲍 易 面 网 土 的 点 . 作 (5 一 101) 式 的 计算 时 ， 
所 有 关于 原点 对 称 的 两 个 倒 格 点 ,都 只 需 取 其 中 一 个 . 所 以 ,在 图 
5-6 上 ,以 实心 点 代表 的 第 零 层 点 中 , 只 需 取 虚线 以 右 的 那 部 分 点 
sb Q$ T ,其 它 层 的 合格 点 可 从 第 零 屋 倒 格 点 平移 得 到 ,同样 也 只 需 
取 其 中 的 一 半 . 

为 了 计算 赂 势 形状 因子 寻 十 天 :1WoCr7 7， 可 选择 合理 的 醒 
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@ & : в Z % 
| + + 
. ә 1% . 7” s 
í аж 4 
. o 1020,6 ° — (0012 
кел ые ж 
Ф Ф Г. Ф ы 
д ж Хх 
5 Ф Ф | = е Ф 
хха 
a “ °; 由 © ë 


图 5-6 А110) ЯТ Еб • CA 
于 第 零 层 ,加 叉 点 属于 第 一 层 
执 (г), 程序 5-3 PSPELD 采用 ТЖ ЛЛ ИЗӘ СИ" (л) = 
一 毕 十 85(r)) 基 础 上 加 以 修正 后 得 到 的 模型 项 势 


wpa n o BOS _ 
w=- tray (5 — 102) 


AP re A 275] 24% ЇН] EF ЖНАННЛЕННЕНЗА СЕЛТ на У 
振动 光谱 确定 . 对 于 晶体 А1,2--41.4 Ryd。 了 Bohriir. 一 0. 2 Bohr; 
函数 可 写成 下 列 形式 ; | 


ё(гу = (2л) 'акехравк Т” (5 — 103) 
考 虚 有 屏蔽 效应 后 有 


ü zeš t 
Т Өг) = — -гехр(- k, ` r) + ó (r) 


; 
[1 + (Krd P 
(5 — 104) 
志 称 为 托马斯 - 费 米 屏蔽 长 度 , 其 数值 为 
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k? = Аже ГЕ, (5- 105) 
AT DLEr) 是 自由 电子 气 的 状态 密度 . 最 后 有 


(k + KIW |k} = 2. fdr- exp(— Ë, ° r) 


— В __ . 
татар )e 
_ 1 8 _ An2e! 
一 AEETI ТТІ, (КЕТ а [аку “dr | 
22 Anze ИШ ЭИ _ 
= кю, Пп К 55-199 
所 以 | 
472 
Ранее е - Ий, t ali FET) 
(5 — 107) 


由 于 来 用 模型 厦 势 ,计算 晶体 原子 性 质 时 误差 比较 大 . 为 了 减 
小 这 些 误 莽 , 可 引入 寻 带 电子 相互 作用 ,这 时 (05 一 82) 式 成 为 


ИИ", = Б Дін (5 — 108) 
式 中 大 表示 电子 的 相关 作用 势 : 
Әле? 1 
X=- (ыға) 6-09 


引入 新 函数 et 下 代替 stK&1), 可 使 前 面 推 导 的 各 式 在 形式 上 保 
持 不 变 , e (KK;) 可 写 为 

g“ (К,) = ] + 
比较 (5 一 82) 和 (5 一 "ки. 0 t,e“ (K;)>el(K:), В 
将 (5 一 84) 和 (5 一 100) 式 比较 ,得 


me Ry — 
ЖОК) = metel 27 In 


pa 


i 4 х,| ук) (5 — 110) 


СЫ +1) (5 — 111) 


式 中 7 意义 同 前 ,为 К,/2А,. 
图 5-7(a) 是 用 按 本 节 推 导 的 公式 编 刺 的 程序 5-3 PSPELD TF 
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算 , 采 用 程序 7-5 PLTCWT 绘制 的 Al 的 (110) 面 的 相对 电子 管 度 
的 等 值 线 图 ;而 图 5-7C5) 是 采用 程序 7-6 PLTDNT 绘制 的 朴 密 着 
图 . 从 上 面 两 图 以 及 计算 的 数据 可 知 ,相对 电子 密度 最 大 值 为 
1. 51 ,出 现在 近 于 [112] 方 向 距离 离子 实 0.19 处 ,而 大 部 分 区 域 
的 相对 电子 密度 近 于 1, 即 接近 于 平均 电子 密度 , 这 表明 ,金属 Al 
中 价 电 子 分 布 比较 均 名 ,只 在 离子 实 附近 变化 较 大 , РЕА 
Al 的 价 电 子 的 波 函 数 为 Block 波 的 线性 组 合 , 它 是 受 较 弱 的 离子 
周期 场 调 制 的 平面 波 , 波 隙 数 只 在 离子 实 附 近 剧 烈 振 萝 , 在 远离 芯 
区 出 变化 平缓 ,所 以 金属 A! 中 价 电 子 的 行为 是 近 自 由 电子 的 ， 

用 腹 势 法 计算 相对 电子 密度 时 ,在 离子 芯 内 ,得 到 负 值 ,这 是 
因为 履 势 法 只 能 描述 离子 芯 之 外 的 价 电 子 分 布 状态 ,在 离子 芯 之 
内 是 不 适用 的 . 


- (110) 


1 1 
Р/ М. 


0.3 


0.2 и 

0.117 Гак 3 
0,0,0 Ж 0, ыж 
0. 0 0, 2 


“Ga 4 
(a) 
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| (112 
15.3.0) CF A 
| -A > ( 5 
ГІ r 2 а 
6.51 pin 
也 4: 4 4; š "A 4 
0. 31 fs as R: 
м ым: 
| ' ++ к i 5 
h 上] РОР 
| езд? же 
S | i 人 
0, 0 ü, 2 0. 4 0.6 0, 8 1.9 
(b) 
5-7 ГЕ ЛОХАН a Fw FEP Y fa 
(a) 等 值 线 图 
1:0. 81 2.1.0; 3:1. 05; 4.1. 2; 9:1. 4; 6:1. ol 
ООН 


程序 5-3 ”性 势 法 计算 金属 铝 
的 电子 密度 分 布 


二 ,功能 


用 修 正 的 离子 芯 模型 巍 势 计算 金属 Al 的 根 对 电子 密度 分 
布 . 
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Ш.Е 


ЯН ТЕРИВЕНМТЕНІ ЖЖ: 

(1) 由 于 程序 已 将 面 心 立 方 格子 的 A! 的 费 米 波 矢 和 点 中 党 
数 直 接 兢 值 ,用 户 只 党 输入 排斥 强度 和 核 则 距离 参数 ,以 及 离子 电 
荷 数 , 就 可 构成 (5 一 102) 式 所 示 的 模型 兰 势 , 再 利用 输入 的 关联 作 
用 参数 , 按 (5 一 82)、(5 一 107) 和 (5 一 108) 诸 式 得 到 考虑 了 相关 效 
ДУ а BJ БЕККЕ SA резо. 

(DRAGOG по ЕЗЕН E НИЯ. 

GJER (5 LDA iAH ВЕЈНА PK Eat 2 AE 7. 

《4) 按 照 45 一 95) 式 ,计算 电子 密度 的 傅 里 叶 分 量 的 系数 , 存 人 
数组 HROQ. | 

2. 计算 满足 条 件 K< K. 的 倒 易 点 的 指数 ， 

《1) 根 据 晶 带 定律 , 共 晶 带 的 各 平面 的 法 线 是 共和 平面 的 ,此 平 
ШЕЯ БЕН 因此 ,对 应 于 共 晶 带 的 各 平面 的 倒 易 点 在 同一 个 
倒 易 面 土 ,此 倒 易 面 牌 直 于 蝎 带 轴 , 且 通过 倒 格 子 原点 ,此 即 第 零 
E| Эш. 将 此 倒 易 面 平移 就 得 到 第 1 层 . 第 2 层 …… 何 易 面 . {РЇ 
格子 的 全 部 倒 易 点 都 被 这 组 倒 易 面包 括 无 址 . 

(2) 输 入 所 到 倒 易 点 的 层 数 和 K/kr 的 最 大 值 , 只 考虑 这 些 层 
内 的 倒 易 点 ,从 中 挑 出 满足 天 志 K 的 倒 易 点 ， 

(3) 对 于 面 心 立方 格子 AL, 共 L110] 带 轴 的 各 平面 的 对 应 倒 易 
点 构成 的 第 零 层 倘 易 面 如 图 5-6 的 实心 贺 点 所 示 , E] Pr H MIX 
点 标志 属于 第 1 БЕТ ПН э д. 正 格 子 为 面 心 立方 时 , 倒 易 点 
指数 К..К,.К. 必需 满足 全 童 或 全 偶 的 条 件 . 将 图 5-6 中 虚线 以 
右 的 人 到 易 点 的 指数 存 人 数组 QP. 虚线 以 左 的 另 一 半 倒 易 点 指数 
是 它们 的 对 称 点 ,不 必 存 和 人， 

《37 属于 第 IN 层 倒 易 面 的 令 易 点 可 从 第 零 层 倒 易 面 的 倒 易 
点 平移 得 到 . 将 该 层 满 足 全 奇 全 偶 条 件 的 倒 易 点 的 指数 存 人 数组 
ОР. 第 一 IN 时 倒 易 面 的 倒 另 点 是 它们 的 对 称 点 ,不必 存 入 ， 
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3. 计算 相对 电子 管 度 ; 

(1) 为 了 计算 面 心 立方 Al 的 (110) 面 上 旦 和 矩形 排列 的 四 个 Al 
原子 围 成 的 面积 的 相对 电子 密度 分 布 , 程 序 设 定 了 三 坐标 的 极 
小 \ 极 大 值 为 0 和 1( 分 别 对 应 于 [L001j 轴 的 (0,0,0)a 和 (C0,0,1) 
а). у 坐标 的 是 0 和 sin45*( 分 别 对 应 于 [110j] 轴 的 (0,0,0)a 和 和 


Cog Oa). 从 输入 的 xz,y 方 向 所 取 的 网 格 点 数目 , 求 得 各 网 格 


S bn z у. | 
《2) 取 用 前 面 算得 的 电子 密度 的 傅 里 时 分 量 系 数 积 倒 易 点 的 
指数 ,按照 (5-101) 式 计算 各 网 格 点 的 相对 电子 窗 度 Р(х,у). 


四 .流程 图 5 一 3 


计算 波 矢 4 的 介 电 函数 ， 屏 规 持 势 矩 阵 元 和 电子 密度 傅 里 时 系数 
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RIS T ы ТЕТТЕ" 


K,— К; =1, К. = К 


将 第 零 层 倒 易 面 上 KKm， 且 指数 全 
ЕВИ ЛИНА ЖОР 


五 ,变量 说 明 


«АЛЛЕЕ, * * 为 程序 中 已 设 定 的 变量 ;十 为 销 出 变量 . 

AX :电子 关联 作用 参数 X. AX=1. 5 为 计 入 关联 ,0 ЖАЗҒА, 

RC” :修正 的 点 离子 心 模 型 尾 势 的 核 间 距离 参数 re. 单位 :Bohr， 
344 


从 存 于 PE 的 第 零 层 倒 易 点 指数 生成 第 IN 层 倒 易 点 指数 KIN) 
=K (0)+IN,K (MD=K (0) +IN,K,(IN) =K,(0) 


| x 
KK ,KK 全 奇 或 全 偶 ? 
N 
Y 


将 第 IN 层 倒 易 面 上 KS<CK 且 指 数 为 全 
而 全 倡 的 合 吻 点 指数 存 和 数组 QP 


BETA ;修正 的 点 离子 芯 模型 尾 势 的 排斥 强度 参数 В. 单位 Ryd 
· Bohr’. М AX= RC=BETA 时 ,成 为 一 般 的 已 离子 忌 模 
ЖМ ТЕ ЗД. 
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к= (Ї—1)/Л\х 
у= (J—1) Ay 


计算 网 格 点 {x,y) 处 相对 电子 密度 。 
T Мён iH ХЕЕЕНОЖ 


找 相 对 电子 密度 的 最 小 .最 大 值 及 其 所 在 点 的 坐标 


| N 
== шп —— 
Y 
N 


НАН T E E ЕРДЕ v. АХА E F {Е pa АА SR 


Ca 


流程 图 5 一 3 


Z" ; P TER Z. 

А"" АК а. 单位 :Bohr. 

VO; 平 均 每 原子 的 体积 h. 
346 | 


AKF“' : 费 米 波 和 撩 kr. 单位 Bohrc :. 

Q(D+t ,91.1=1,60. ІЛ Ж 4>28%--0.1 Г, 0. 1 А0: 
5 kr. 单位 :Bohr-: | 

ЕТАО (О) *,ЕТА ,1=1,60. fr ЖЖ є(9). 

МОЧУ, ЖОЕ ,1=—1,60. ДЕ ЕЗ ЕНЕ ETC. 

RHOQ(D*t ,RHOQLI;I=1,60. 晶体 中 电子 密度 исә 07 
量 的 系数 p. 

ОПКЕМ"К/Р МЕН Kalker. ЕНТЕЛЕП К 
SKa HERA. 

NLAYER' :计算 电子 密度 压 所 取 的 第 零 层 面 以 上 的 倒 易 面 的 层 
H N. N 应 足够 大 ,使 K< K. 的 所 有 倒 格 点 都 包括 在 这 
2N + 1 БИН. 

NOP1,QP1(1,J):1=1,NQP1,J=1,3. МОРІ K: 8 8 T rh Ы 
НЕЕ E Е. HRR KK. 的 所 有 令 格 点 
总 数 的 一 半 , 田 一 半 为 其 对 称 点 . QP1(I1,J) 存 放 上 述 第 I 个 + 
倒 格 点 的 指数 KK, MK, 

NQP*,QP(1,J)*,I=1,NQP:J=1,3, МОР 是 倒 格 子 中 ,从 第 零 
层 至 第 NLAYER БИЕ КК, НИКА 2: ñr sk, 2: A 
的 倒 格 点 总 数 , QP(I,]) 存 放 上 述 第 I 个 倒 格 点 的 指数 . 

XMIN" * ,XMAX"' ,YMIN"' ,YMAX'' ,此 四 个 参量 决定 了 要 
计算 的 相对 电子 密 诬 的 区 域 . 程序 已 设 定 хо. 0, то 1, 
ymin = 0, Уш» 二 Sin45°, 妈 指定 了 计算 面 心 立方 馈 的 (110) 面 
上 时 矩形 排列 的 四 个 Al 原子 畦 成 的 面积 的 相对 电子 密度 . 
单位 а. 

ІХРТ" IYPT: KLEER ARRE r AAA у J tl P Ra 
的 网 格 点 数目 ， 

XSP,YSP; 在 x 方向 和 3 方向 记分 网 格 点 的 步 长 Ат ЖІ Ау. 单位 : 
4. 

ЕНОХҮ (1,Ј)+,ХХО) +, YY ,分别 是 在 第 I 列 第 ] 行 的 网 格 
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点 的 相对 电子 密度 已 (z,y) 以 及 此 倒 略 点 举 标 的 二 分量 和 y 
分 量 . 

XMI ,YMI*+ ,PRMIN*+ ;在 所 有 网 格 点 中 相对 电子 密度 为 最 小 的 
点 的 zx 分 最 和 分量 ,以 及 此 最 小 相对 电子 密度 的 值 . 
XMA+,YMA+ ,PRMAX+ :在 所 有 网 格 点 中 相对 电子 密度 为 最 大 

的 点 的 之 分 其 和 yy 分 量 ,以 及 此 最 大 相对 电子 密度 的 值 . 


六 , 子 程序 和 外 部 函数 说 明 


1. ЕУКНОХЧВЕТА,ЕС,ОФ,ЕТА.,УУОЕ.ЕНООЧ) 

对 于 排斥 作用 参数 为 p, 核 距离 参数 为 r НІЛ Ж 
аза «а ЖЕН ЕМЕ ЕЛ “ОЕ 以 及 电子 
密度 的 傅 里 叶 分 量 的 系数 p 的 子 程序 . 

2. RHOR(X,Y .PR) 

计算 面 心 立方 蝎 格 (110)? 面 上 上 的 网 格 点 zy) 处 的 相对 电子 
密度 P(z,y) 的 子 程序 . 

2.ӘГМРОС (U,V, W) 

计算 点 相对 电子 密度 表达 式 (5 一 101) 中 的 求 和 项 Z соз 


Са е РВУ. U, VW 是 在 面 心 立方 唱 格 (110)? 面 上 的 点 的 
{ч Ж r 的 三 个 空间 分 量 . 


七 .计算 实例 


本 程序 运行 时 ,采用 人 机 对 话 形式 , 按 屏幕 提示 以 自由 格式 键 
入 输入 数据 , 运行 后 ,产生 如 OUT 的 输出 文件 记录 输入 参量 ,以 
久 算 得 的 介 电 函数 .屏蔽 硅 势 的 第 阵 元 和 电子 密度 的 傅 里 时分 量 
的 系数 ,并 记录 К< К„ 的 倒 格 点 指数 和 相对 电子 密度 . 程序 还 自 
动 生 成 输出 数据 文件 RHOXY ,贮存 各 网 格 点 的 相对 电子 密度 P 
《zyy) 的 值 , 供 程序 7-6 PLTDNT 给 相对 电子 密度 的 玻 和 密度 图 之 
H. 也 可 将 RHOXY 作为 程序 7-4 CONTOR 的 输入 数据 文件 , 计 
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算 等 值 线 数据 , 青 使 用 程序 7-5 PLTCNT 绘制 相对 电子 密度 的 等 
EAA. | | 

对 于 金属 Al, E t IE É ЖШ IN 30 Ж AX = 1.5, RC = 0. 2 
Bohr,BETA=41. 4 Ryd。Bohr 和 2Z=3, 又 取 倒 格 矢 的 上 限 与 费 
米 波 矢 之 比 QDKFM = 5 和 计算 俩 格 矢 时 所 取 倒 易 面 的 层 数 
NLAYER=10, #0 z HEM уе Н IXPT = 31, 
IYPT=21. 程序 运行 后 的 结果 使 用 程序 7-5 PLTCNT 绘制 的 Al 
的 (110) 面 的 相对 电子 密度 等 值 线 图 见 图 5-7(aj ,使 用 程序 7-6 
PLTDNT 绘制 的 Al 的 (110) 面 的 相对 电子 密度 的 玖 密度 图 见 图 
5-7(0). 

运行 指令 ,PSPELD OUT 


ЖМА, РЕ:Р5РЕГО + FOR 


PROGRAM PSPELD 
INTEGER ӨРІ,ОР,ОХ,ОҮ,02 
DIMENSION ETAQ(60),WQ(60).QP1(200,3) 
DIMENSION ХХ(61), ҮҮ(61),ВНОХҮ (61,61) 
COMMON/QK/QDKFM,Q(60),QDKF(60),RHOQ(60), 
/ ОР(400,3» МАР 
СОММОМ/АРОТМЫ/ РІ,А.УО,РПОА, АХ.?,АКЕ 
DATA Е1,Е2/0. 0001,0. 000002/ 
OPEN(6,FILE=' ',STATUS="NEW') 
OPEN(10,FILE="*RHOXY”,STATUS='NEW') 
PI=3. 1415926 
AKF=0. $273 
А=4. 0496/0, 52915 
V0O=A * À * А/4. 0 
PIDA=2. 0 * PIJA 
. WRITE(6,10) 
10 FORMAT(CI10X,'x «ж» INPUT DATA » * +» x',/) 


ҮРЕТТЕС» .20) 
20 FORMAT СОРОТ PARAMETER ОЕ Е,ЕСТОМ”, 
/ СООЕЕ,АТОМ, АХ = *) 


READ. +, +) АХ 
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ТЕХАХ. EQ. 0.0) МЕІТЕС6, 30) 
30  FORMAT(/3X,'CALCULATE THE DENSITY DISTRIBU’ 
/ TION OF ELECTRONS FOR METALLIC ALUMINUM’ 
/ /' BY PSEUDO POTENTIAN METHOD. THE *, | 
/ 正 LECTRON COORELATION 15 МОТ CONSIDERED. '/› 
IFCAX. EQ. 1.5) WRITE(6,40) 
40 ”FORMATI(3X CALCULATE THE DENSITY DISTRIBUTION’ 
/ ,* QF ELECTRONS FOR METALLIC ALUMINUM'/’ BY， 
/ ,* PSEUDO POTENTIAN METHOD WITH INCLUSION ， 
/ „ОЕ ELECTRON COORELATION. ', /) 
WRITE(6,50) АХ 
50 FORMAT C PARAMETER OF ELECTON COORELATION,' 


/ ,7X, AX = ',Е5.2) 
WRITE( + ,60) 
60 FORMATO INPUT THE PARAMETER ОЕ REPULSION’ 
/ ЖЫ DISTANCE: RC = "9 


КЕАЮ(ж, < ) RC 
WRITE¿(6,70) RC | 
70 ЕОКМАТС THE PARAMETER OF REPULSION ， 
/ DISTANCE ,4X,'rc = ?Е5.2) 
МЕТЕ x ,80) 
80 БОЕМАТС INPUT PARAMETER ОЕ REPULSION ' 
/ "STRENGTH: ВЕТА = 'N) 
READ + ,* ) ВЕТА 
WRI[TFE(6,90) BETA 
0 ГБОВМАТ(? THE PARAMETER OF REPULSION ', 
/ 'SIRENGTH; ВЕТА = *,F5,2) 
WRITE( + ,100) 
100 КОЕМАТС INPUT THE EFFECTIVE СНАВСЕ,', 
/ 17X,'Z = ",M 
READ(* ,* ) Z 
WRITE(6,110) Z 
110 FORMATO THE EFFECTIVE CHARGE:',20X, 
гі Z = ”,F5. 2) 
WRITE( * ,120) 
120 FORMAT INPUT THE MAXIMUN VALUE ОҒ О/КЕ.? 
/ ,8X ,QDKFM = *N) 
КЕЛІК ж,» ) QDKFM 


360 


140 


150 


160 


170 


180 


200 


WRITE(6,130) ООКЕМ 

FORMAT( THE MAXIMUN VALUE OF Q/KF,',11X, 
/ 'OQDKFM == °,Е5.2) 

WRITE( * ,140) 

FORMAT’ INPUT NUMBER OF LAYERS ОН”, 
/ *RECIPROCAL LATTICE POINTS: NLAYER = 70 
READ(* ,* ) NLAYER 

WRITE(6,150) NLAYER 


FORMAT( THE NUMBER ОЕ LAYERS OF RECIPROCAL' 


/ » LATTICE POINTS; NLAYER = "12) 
WRITE( * ,160) 
FORMAT(’ INPUT NO. ОЕ GRID POINTS IN ' 
/ "和 一 DIRACTION IXPT = ^) 
READ( » ‚+ ) ІХРТ 
МЕІТЕ (6.170) XPT 
FORMAT(' NUMBER ОЕ GRID POINTS ІК" 
/ ,X—DIRACTION.: ТАРТ = 7,12) 
WRITE( * ,180) 
FORMAT(' INPUT NO. OF GRID POINTS IN ” 
/ ,Y—DIRACTION;: ТҮРТ = "02 
КЕАП( ж,» ) ТҮРТ 
 WRITE(6,190) IYPT 
ҒОЕМАТ( NUMBER ОЕ GRID POINTS IN ”, 
/ 'X—DIRACTIÓON:; IYPT = 7,12) 
WRITE(6,200} 


FORMAT(/10X,'* * я х OUTPUT DATA # + * *”/) 


ВЕТА--0.5 + ВЕТА 
ЕТЛІ--1.0--(1.0-- АХ/4. 0)/ (2. 0+ PI АКЕ? 
DO 230 1= 1,60 
QDKF(D=FLOAT(I)/10. 0 
Q (ID =QDKF(D + АКЕ 
QI=Q (I) 
IF <I. EQ. 20) СО ТО 220 
CALL EWRHO(BETA,RC.QILETA,WQE,RHOQD 
ETAQ(D=ETA 
МОС = МОЕ 
RHOQ(D =RHOQI 
GO ТО 230 
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220 ВУ02-БЕТА/(1.0--СОІ * RC) * (QI* КСЭ) * * 2 
/ —4.0* PI x Z/ (QI x QD | 
WAQA2=BWQ2 » (1.0/ЕТА1—1.0) 
ЕНОЮ (1) == 3. «РІ» QI ОТ + WQ2/(4. + AKF # AKF # AKF + V0) 
WQ(D =BWQ2/ETA1/V0 
| ЕТАОӘ(1)--ЕТА1 
230 CONTINUE | 
ЖЕТТЕС» ,240) 
WRITE(6,240) 
240 ЕОВМАТ<10Х,'О/КЕ°,3Х 'ETA(Q)' ,7X,'<K+QIWIQ>') 
WRITEC + ,250) (0. 1 *FLOAT(D ,ETAQCD, 


/ WQ (I) = 2, 0,1=1,60) 
WRITE(6,250) (9, 1 * FLOAT(1D,@,ETAQCUD, 
/ МОСЫ x 2.0,1=1,60) 


250 КЕБКОВМАТ(4Х,Ғ10.4,4Х,Ғ10. 4,4Х,Ғ10. 49 
WRITE( * .260) 
“УКІТЕ(6,260) 
250 ҒБОКМАТ(/5Х,”?ТНЕ FOURIER COMPONENT ОҒ THE ', 
/ "ЕІЕСТЕІМІС DENSITY ? 
ТЕТТЕ. * ,270)2 
WRITE(6,270) 
270 ЕОЁМАТ(/,9Х, 'О/КЕ',10Х, 'RHOQ') 
WRITE( * ,280) (0. 1 +» FLOAT(D,RHOQ(I),I== 1,60) 
ҮУЕІТЕ(6.280) (0.1 # FLOAT(D ,RHOQ(D) ,I=1,60)2 
280 FORMAT(3X,F10.4,4X,F10. 4) 
7 ҮҮКІТЕС » ,300) 
УУКІТЕ(6,300) 
300 КЕБОКМАТ(/5Х."ҮНЕІМрЕХ ОҒ THE RECIPROCAL ' 


/ LATTICE POINTS;: ”) 
NQP1=0 | 
NQP=0 
DO 320 1--0,30 
ГО 310 K= 0,30 
QX=I 
QY=-—Qx 
IF(QX.EQ.0) QY=0 
QZ=K 
I=QX+QY 
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310 
320 


ІЕ (1. МЕ. 0) GO TO 310 

QPDKF =PIDA + SQRT(FLOAT(QX + QX+QY #ФҮ+027 + 97))/АКЕ 
IF(QPDKF. GT. QDKFM) СО ТО 310 

NQP1=NQP1+1 

QP1(NQP1,1)=QX 

QP1(NQP1,2)=Q Y 

QP1(NQP1,3)=QZ 

IF(QX. EQ. 0. AND. QY. EQ. 0. AND. QZ. EQ. 0) GOTO 310 
П--ОХ--ОҮ 

I2=QY+1+QZ 

13=9х +97 

ІЕ(МОр(11,2). МЕ. 0) СО ТО 310 

IF(MOD(I2,2). МЕ, 0. ОВ. МОр(13,2). NE. 0) СОТО 310 
NQP=NQP+1 

QP(NQP.1)=QX 

ОР(МОВ,2)--ОҮ 

ОРОЧОР,32-02 

IF (QZ. EQ. 0. OR. QX. EQ. 0) GO TO 310 

МӘР--МОР-Ғ1 

QP(NQP,1)= QY 

QP (NAP ,2)=QX 

ОРСЧМОР,32--07 

CONTINUE 

CONTINUE 

WRITE( * ,330) 

WRITE(6,330) 

FORMAT(/,7X,'Kx',5X,'Ky',5X . Kz") 

DO 350 IN=1,NLAYER 

DO 340 I=1,NQP1 

QX=QP1(L,1) +IN 

QY=QP1(I,2)+IN 

QZ=QP1 (1,3) 

QPDKF=PIDA * SQRT(FLOAT (QX + QX +QY * QY +QZ + QZ)) 
IF (QPDKF. СТ. QDKFM) GO TO 340 

П-ОХ--ОҮ 

I2=QY+QZ 

I=Qx+QZ 

IF (MOD(I1 ,2). NE. 0) GO ТО 340 
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JIF (MOD (12,2). МЕ. 0. OR. MOD(I3,25, МЕ. 03 GOTO 340 
HQP=NQP+1 
QP (NQP ,1>= QX 
QP(NQP,2)=QY 
QP(NQP,3)=QZ . 
IF(QP1([,3). EQ. 0. AND. QP1 (I,1). EQ, 0) СОТО 340 
NQP=NQP+1 
K1= —QxX 
К2= QY 
IF (QX. EQ. 0) K1=0 
IF (QY. EQ. 0) K2=0 
QP (NOP. 1)=K1 
ОРСМОР,22--К2 
ОРСЧОР,3)--02 
IF(QP1 (1,3). ЕЧ. 0. OR. QP1(1,1). EQ. 0) СОТО 340 
NQP=NQP+1 
QP (NQP, ,1)=Q Y 
ОРСМОР,23-ОХ 
ОР(МӘР, 3) = 62 
' NQP=NQP+L 
QP(NQP ,1)=K2 
QP(NQP,2>=K1 
ОР‹МОР.3) =07 
340 CONTINUE 
350 CONTINUE 
DO 360 П--1,.МОР 
WRITEC* ,370) «(ӘРСІ,/2.1--1.3) 
369 WRITE(6,370) (ОРШ,І).1-1.3) 
370 FORMAT(2X,317) 
WRITE(C ,400) 
WRITE (6, 400) 
400  ЕОЕМАТ“/5Х,'ТНЕ ELECTRON DENSITY *, 
/ "DISTRIBUTION ;’} 
ХМАХ =1. 0 
YMAX=SIN PL/4. 0) 
ХМІМ--0. 0 
ҮМІМ--9. 0 
XSP= (XMAX— XMIN)/FLOAT(IXPT—1) 
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YSP=(YMAX--YMIN})/FLOAT (IYPT— 1) 
410 IF(ABS(XSP s FLOAT (IXPT —1)— (XMAX—XMIN)). LT. E1) 
/ GO TO 420 
IFCABSCYSP + FLOAT(IYPT—1)— (YMAX—YMIN)). LT. E1) 
/ СО ТО 420 
IF((XSP * FLOAT(IXPT—1)—(XMAX—XMIN)). СЕ. Е1) 
/ Х5Р--Х5Р--Е2 
IF(((XMAX—XMIN)—XSP + FLOAT(IXPT — 1). GE. E1) 
/ XSP=XSP+E2 
ІЕССУЅР < FLOAT(IYPT—1)—(YMAX— YMIN)). GE. E1) 
/ YSP= YSP—E2 
ІКССҰМАХ-ХМІМ)--ҮЗР x FLOAT(IYPT—1)). GE, E1) 
/ YSP= YSP + E2 
GO TO 410 
420 CONTINUE 
WRITE( * ,430) 
WRITE(6,430) 
430 FORMAT(C/ 9X,"X',13X,'Y' 10X, 'RHOXY*) 
PRMAX=0. 0 
PRMIN=0. 0 
DO 470 I=1,1XPT 
X=FLOAT(I—I)* XSP 
XX(I=X 
DO 460 ]=1,IYPT 
Y=FLOAT(J—1) + YSP 
YYú(J)=Y 
CALL RHOR (X,Y ,PR) 
RHOXY(,J:>=FPR 
WRITEC < ,440) XX(, YY(Jy,RHOXY (I,J) 
ҰЕІТЕ(6,440) XX(D) YY), RHOXY ,I 
WRITE(10,440) ХХА), YY(J) RHOXY (1,J5 
440 FORMAT(4X,F10.4,3X,F10.4,3X,F10, 4) 
IF(PR. LT. PRMAX) GO ТО 450 
PRMAX=PFPR 
ХМА =ХХ (1) 
ҮМА=ҮҮ(]; 
480 IF(PR.GT.PRMIN) GO ТО 460 
РЕМІМ--РЕ 
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460 
470 


480 


490 


290 


10 
20 


Š 


n 


XMI=XX(1) 
YMI=YY(J) 

CONTINUE 

CONTINUE 

WRITE( * ,480) PRMIN,XMI,YMI 

WRITE(6,480) РЕМІМ,ХМІ,ҮМІ 

FORMAT C MINIMUM OF RELATIVE ELECTRINIC ' 


/ DENSITY IS ',Е10.4,' AT X =", 
/ Е10.4, & Y =', F10, 4) 


WRITE( * ,490) РЕМАХЬХМА,ҮМА 
WRITE(6,490) РЕМАХ,ХМА,ҮМА 
FORMAT MAXIMUM OF RELATIVE ELECTRINIC ” 


/ DENSITY 15 ',F10.4,' AT X =', 
/ Ғ10.4,7 & Y =*,F10, 4) 


ЖКІТЕ(10,500;) IXPT ,1YPT ,XSP,YSP 
ҒОКМАТ‹8Х,ЧХРТ = *,12,7Х,'ТҮРТГ=',12, 


/ 2X,DX==',F6.4,2X'DY= ,F86. 4) 


/ 


f 


6 


CLOSE(106) 
STOP 
END 
SUBROUTINE ЕМЕНО (ВЕТА ,RC,AQI,ETA ,WAE ,RHOQI) 
СОММОМ/АРОТМ/ PI,A,VO,PIDA,AX.Z2,AKF 
X=0.5*QI/AKF 
ІҒСАВ5(Х>.1.ЕӨ. 0. 0001) GO TO 10 
Е9= 0. 5+ AKF *{(1.0--X Х) + АПОСЌАВ5((1 4-Х (1—5) 
(2.0 Х9--1. 0) 
СО ТО 20 
БО = 0. 5 ж АКЕ 
ЕТА =1. + (1. (ХХ) -АХ/ (1.3. «Ха ХУОБО/Р/АҚР/АКЕ 
У/90-ВЕТА/(1,--<01» ЕС) (ОТ RC) + 2 2 一 4 » PI * Z/QI/QI 
ЖО = WwWQ0/ETA 
WQE=WQ/V0 
WAl= (WQ — WQ0)/V0 
RHOQI= 32.0 * PI + ОГ» QI + WQ1/(4, 0 + АКЕ» AKF < АКЕ? 
RETURN 
END 
SUBROUTINE FHOR(K.Y. PR) 
AVRKPK=0. 0790 


U=Y » 51М(3. 1415926/4. 0) 

V=U 

W=X 

PR=1. 0+AVRKPK+2. 0 * SUMPQC(U,V ,W) 

RETURN 

END 

FUNCTION SUMPQC(U,V ,W) 

INTEGER QP 

COMMON/QK/QDKFM ,Q (60) ,ОрКЕ (60): RHOQ(60), 
/ QP(400,3) ,NQP | 

СОММОМ/АРОТМ/ РІ,А,У0,РІА ,АХ,2,АКЕ 

QPUVW(U,V,W)=FLOAT(QP(1,1)) + U 
E +—FLOAT(QP(1,2)) < V+-FLOAT(QP(1,3)) + W 
. COSQR(U, V, W)=COS(2. 0 ж PI + QPUVW(U,V,W)) 

SUMPQC = 0. 0 

PIDA=2. 0# Р1/А 

DO 20 1--1,МОР 

QK=FLOA T (QP 1,1) «ОРЯ,13--ОРА1,22 * QP(I,2) 
/ -ОР(1,3) + ОР(1,3)) 

ОК =РІрА + SQRT(QK) 

QKDKF=QK/AKE 

IF (QKDKF. GT. QDKFM) СО ТО 20 

DO 10 J=1,50 

DKIQJ=QKDKF-—QDKF(¿(J) 

IF(DKIQJ.GE. 0.1. OR. DKIQJ.LT. 0.0) GO ТО 10 

PQA=RH0Q¿J)+RHOQ¿J) = (QK—Q(J)/(Q(+1) -AJ 

SUMPQC=SUMPQC+PQA * COSQAR U,V ,W) 

CONTINUE 

CONTINUE 

RETURN 

END 
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第 六 章 ”磁性 和 电 性 


磁 学 是 一 站 出 现 很 早 但 又 一 直 富 有 生命 力 的 学 科 . 早期 的 居 
H (Curie) Ж. РН Weiss) THAR, K A 66 (Heisenberg) 的 
铁 磁 量子 理论 等 ,在 物理 学 史上 都 起 过 重要 作用 . 近 十 余年 发 展 起 
来 的 临界 现象 的 重 整 化 群 理论 , 也 是 以 铁 磁 相 变 作为 重点 研究 对 
象 ,所 以 固体 磁性 的 研究 一 直 蚌 固体 物理 的 一 个 重要 组 成 部 分 . 本 
章 介绍 与 本 计算 程序 有 关 的 朗 之 万 (Langevin)? 顺 磁性 、 海 森 堡 铁 
位 量子 理论 和 外 斯 的 分 子 场 理论 . 

液态 金属 和 合金 的 研究 已 引起 世界 上 许多 科技 先进 国家 越 来 
越 多 的 重视 . 多 年 来 ,对 液态 金属 和 合金 的 研究 祁 是 在 大 量 实验 的 
基础 上 来 寻找 其 规律 性 的 , 随 着 液态 理论 的 发 展 , 人 们 逐步 条 用 量 
子 力学 和 统计 物理 热力 学 的 方法 ,计算 液态 金属 及 合金 的 性 质 , 为 
金属 材料 的 设计 和 研制 提供 可 靠 的 理论 依据 . 本 章 利用 液态 金属 
的 齐 曼 (Ziman) 理 论 ,计算 了 液态 金属 和 合金 的 电阻 率 . 


56.1 固体 的 磁性 


6.1.1 固体 按 磁 性 分 类 
Э.Ж {Жу 的 大 小 出 发 ,可 将 固体 分 为 五 类 ,下 面 分 别 叙 述 ， 
一 , 抽 磁 性 


此 关 物 质 不 含 顺 磁 离子 (所 谓 顺 磁 离 子 是 指 4 充 层 不 满 的 这 
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渡 元 素 或 了 壳 层 不 满 的 稀土 元 素 的 离子 ,这 些 高 子 因 内 充 层 中 电 
子 未 填 满 而 具有 固有 袜 矩 ), 因 此 无 加 有 磁 矩 ,外 磁场 B.=0 时 ,其 


位 化 强度 M 一 Уи = 0 (М 定义 为 单位 体积 内 所 有 微观 粒子 碰 


ERREK). 加 上 外 场 B 后 ,在 原子 中 绕 核 运动 的 轨道 电子 的 运 
动 速度 发 生变 化 而 产生 感应 电流 . 按 楞 次 定律 ,此 感应 电流 产生 的 
磁 矩 与 外 场 方向 相反 , 故 磁化 率 XxX 过 0, 抗 磁性 的 磁化 率 一 般 约 为 
一 10 ~ 一 10"*, 且 几乎 与 温度 无 关 . 在 周期 表 上 1B 一 NB KEM 
(Al 除外 ) 都 是 抗 磁性 的 ,由 情 性 气体 组 成 的 晶体 及 离子 晶体 等 都 
дін. 


=. 


这 类 物质 的 磁化 率 Х>ОНЖИЯЯ Ж 1075-1075 典型 的 
顺 磁 性 物质 有 A 族 金 属 (Fe .Co.Ni.Gd.Cr.Mn RIMARK S IMR 
离子 的 绝缘 体 . 

REE SHET 的 关系 , 顺 磁性 物质 义 可 分 为 两 类 : 

1. RZJ (Langevin) МТ 


遵守 居 里 定律 x= | (6—1) 


或 、 居 里 -外 斯 定律 хер (6—2) 

AP ро 4xx10 35 (8 / h - Ж ЖЫК bz л 5| À 09 96 
KOT. 称 为 居 里 温度 ， 

这 类 物质 是 含有 少量 过 湾 金 属 , 稀 土 金属 离子 的 固体 以 及 某 
ЖА Ж.Ж. 

2. 泡 利 CPauli) 顺 磁性 

y 几乎 与 温度 无 关 . 其 顺 磁性 与 费 米面 处 的 能 带 结构 有 关 ， 

部 分 篇 单 金属 如 Na, AL 等 显示 泡 利 顺 磁 性 ,当然 ,一 些 过 渡 
金属 也 显示 能 带 顺 磁性 . 
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= AHE 


这 类 固体 所 含 的 磁性 原子 (或 离 
子 ) 之 间 能 产生 很 强 的 相互 作用 ， 
可 使 它们 的 磁 和 矩 不 借助 外 加 磁场 
而 分 小 区 自发 地 排列 起 来 , 即 当 | 
不 加 外 磁场 时 ,每 个 小 区 (通常 称 


HEH M = >u = 0, ВШ 
在 自发 磁化 ,如 图 6-1 所 示 , 称 之 шор 自发 磁化 ,无 外 磁场 时 , 铁 


为 铁 磁性 . (H HT H TEJ E Е Т, 磁体 的 每 个 磁 畴 内 原子 磁 
以 下 (TT 之 T.), 铁 磁性 才 存 在 ; 即 sE A H ПЕ 
T< 了 .时 为 铁 蔽 性 x 
Т>Т. 时 为 顺 磁性 ,有 
Ёс 
хет Ñ 6, Т. 


金属 Fe.Co .Ni.Gd ДЖ. 
O DRH 


没有 外 磁场 时 ,在 反 铁 磁体 中 各 个 磁 畴 
НЕЗ БЕР E: tl 6-2 所 示 的 规则 排列 , 它 
Pj AE RA РА ЕН БН ҒА 16 #£ lil ZE | | 
一 起 . 发 生 反 铁 磁 性 - 顺 磁 性 相 变 的 转变 温度 
串 尼 尔 (Neel) 点 ,以 Tv 表示 ， 
Г<Т» 时 ,为 反 铁 磁性 图 6-2 пин 


T>Tw 时 ,为 顺 磁 性 . 有 x= т М=—М) 
金属 Cr ,Mn 以 及 MnO,NIO.MnF, Ж ЗЕН БЕКЕ. 


361 


五 ` 亚 铁 磁 性 


外 磁场 为 零 时 ,在 亚 铁 磁性 物质 内 ,每 个 | | | 
ШЕМЕН ЫЛ 6-3 所 示 的 规则 排 
列 , 其 磁 手 排列 类 似 于 反 铁 磁体 ,但 两 子 晶 格 ”图 6-3 БАШ 
УАН ТАН ОМзем, ,其 磁化 行为 则 (М,®М,) 
类 似 于 铁 磁 体 ， 
亚 铁 磁性 - 颗 磁 性 的 相 变 也 是 在 一 定 临 界 温度 TT ЖЕ: 
Т<Т. M, HER EH. 
_ TOT. AMBAH. 有 六 一 
ЖЕНА. 
„ЖЕЕ X. Г ЖЭИЕ Т КЖ. 


第 一 类 ,有 磁 序 结构 的 . ETERRA ЕЕ ЧУ КШТ. 
第 二 类 :无 磁 序 结 梅 的 , 包括 抗 磁性 和 顺 磁 性 . 


1 
с 


1 5 
+y gp. Fe O. tE 


6.1.2 ”明之 万 (Langevin) 顺 磁性 
(局 域 化 电子 的 顺 磁性 ) 


大 量 的 气体 、 液 体 和 固体 的 顺 磁性 ,近似 服从 磁化 率 与 温度 成 
反比 的 居 里 经 验 定律 (6 一 1) 式 或 居 里 -外 斯 定律 (6 一 2) 式 ， 

郎 之 万 假定 每 个 原子 (或 分 子 . 离 子 ) 的 固有 磁 抱 为 全 , 它 在 空 
间 可 以 任意 取向 ;利用 玻 尔 兹 曼 统 计 , 获 得 师 磁 体 的 每 克 分 子 磁化 
Ж); 

X == Мо /3ka l (6 — 30 
AF N, ЕНМХЛЕРЕН ka HR RE Se á ЖС. ЭХ pk JA PE Сі, 
ЕҢ T ЕЕН, it2(6—1)481(6—3) H Ен ЙӘ 
得 的 居 里 常数 c ИРДЕ ТЕЛА Н ИЯ 上 . 正 是 在 这 个 基础 上 
发 展 了 通过 磁化 率 的 测 基 来 确定 震 子 磁 矩 的 重要 实验 方法 . 
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下 面 用 天 之 万 的 半 经 典 理论 来 推导 (6 一 3) 式 . 该 理论 认为 原 
子 的 固有 豆 算 是 和 目 由 的 ,除去 磁场 以 外 ,不 受 其 它 影 响 . 原子 ( 离 
子 ) 的 状态 可 以 用 四 个 量子 数 描述 (J 了 Mj、 上 .5S), 其 固有 磁 短 为 


422226 z 
И, =— g 547 (6 — 4) 
其 模 的 大 小 等 于 ше sI FI ив (6 — 5) 
AP pa 为 彼 尔 (Bohr) 磁 子 ;g 为 银 德 (Lande7 因 子 ， 
ор 6 z 
Яв 一 = оі (6 6) 
Е Је +1) —ü—SIS+1) -L(L+ 1) ao 
ілін 216741) өй, 


WEH Z 方向 的 外 磁场 B. А, TREIE u 沿 Bo 方向 的 取向 是 量 
АЕ ә, ЖЖЖ); 只 可 以 取 M h= Ja ЛА S (2J + 
1) 个 不 同 值 ,MM 称 为 磁 量 子 数 , 相应 地 , 它 在 磁场 В, ИТНЕ 
BU. 也 是 量子 化 的 : 

a => В, = gua M ;Ba (6 — 8) 
这 表明 原来 简 并 的 (2J 十 了 ) 个 量子 态 在 磁场 中 发 生 分 裂 ( 骞 曼 分 
51). M, 态 的 分 型 能 级 为 rus M Bo 如 果 近 似 认 为 在 温度 个 时 只 
有 这 最 低 的 (2 十 1) 个 能 态 是 被 热流 发 的 ,那么 不 同 磁 盾 取 向 的 
统计 平均 就 归结 为 对 (2J 十 1) 个 分 裂 能 级 求 统计 平均 . ЕЛІ 
曼 统计 ,原子 磁 矩 处 在 磁 量 子 数 为 M 的 能 级 的 几率 正比 于 exp 
(—– М.х). 

z = срұаВ,/8;Г (6 — 9) 
那么 , W ЛГЕН БЫ Н SF 
У! к.ехр(- Мух) Ў! (= gusM.)exp(— Муж) 


аз 7 4 4 


99 ехр(- Mx) У! ехр( 一 Мх) 


М;= – 1 М,ж-4 
= gJnsB,(y) (6 一 10) 
у = xJ = gyed B./k T (6 — 11) 
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AF В,(у) 1 Ж (Brillouin ЖЖ, Ң КА). 


B; (y) = = Seth (27027 T 1) ] 一 усо 2 
(6 — 12) 
外 磁场 诱导 产生 的 磁化 率 为 : 
, М _ NR. 
B. В, 
= Ngd ga B; (y /Bo (6 — 13) 


ERD MERT у= ааа u DUE B,(y) 对 у 展开 为 和 
级 数 . 其 方法 是 先 将 By) 中 的 双 曲 线 余 切 函数 展开 为 


-l а... 
cothz = Ре 十 з 15 + 
再 代入 到 Bt, 
J + 1 (J + 12 + J , J + 1 
ву) ау — ЛЫ ЕТ, ЕЕ с У 


(6 — 14) 
将 (6 一 15) 式 和 yy 的 值 代 入 到 56 一 13) 中 ,有 
X= NgT + Dbpw/3ksT = 市 (6-15) 
式 中 
с=М&МСЛ + 19236; 


(6 一 16) 式 即 居 里 定律 ,c 为 居 里 常数 ， 
图 6-4 是 采用 程序 6-1 MAGNET ,根据 (6 一 10) 式 计算 的 三 


种 固有 了 磁 矩 (各 为 := 卫 , 二 ,六 po) 的 顺 磁性 离子 晶体 的 每 离子 平 
均 磁 矩 也 与 磁场 温度 比 宁 的 依赖 关系 ,实验 点 也 标记 在 同一 图 
上 .从 图 可 见 , 计 算 与 实验 符合 得 很 好 

$6.1!13 铁 磁性 


如 前 所 述 , 铁 磁性 物质 中 存在 磁 畴 . 无 外 磁场 时 在 每 个 磁 栈 内 
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磁 矩 有 一 致 的 取向 ( 称 为 
НИ), RETEA 
的 磁化 强度 不 为 零 , 但 由 
ТВЕН S Wij , 2 8 W [B| 
的 磁化 强度 杂乱 取向 , 故 
整个 铁 磁 体 的 宏观 磁化 强 
度 仍 为 零 . 由 于 每 个 磁 畴 
已 自发 三 化 了 , 当 加 上 外 
磁场 时 , 磁 时 的 磁化 方向 
怠 有 转向 外 磁场 方 谨 的 趋 
势 , 此 时 ,磁化 方向 与 外 磁 
场 取 同 接近 的 磁 畴 会 长 
K. m ü (E, Jr In] FZ 18 Es 
RDI [a] BJ БЕД 2: 28 
小 . 所 以 ,不 大 的 磁场 可 以 
在 铁 滋 体 中 产生 很 大 的 磁 
化 强度 ,致使 铁 磁 性 物质 
的 磁化 率 很 大 . 

要 解释 自发 磁化 , 首 


3.488035 (sk BÉ T) 


图 6-4 


ч 
2 


《Fe + ) 


В/Т (ИЗҮЛЕ) 


AAE ELA ЖЕЕ ®# СЕ), ЖА 
( rH 3048 5 $ñ, ( T. > Wl W£ P£ T dñ +£ 
МЕНЕНТЕЯНЕЖІЕЕНЕ 
的 关系 , 实 线 为 计算 值 . 


УА АН ЕЕЕ EAT Z, , 3: tF Z, 71 ШЕРІН pú @š 
矩 沿 同一 方向 排列 . eE £ k y ЗЕ) 9 ЕТЕНЕ А. Б, БЕР 
的 朗 德 因子 g 们 2; 而 从 (6 一 9) 式 可 知 ; 只 有 当 上 ==0, 盈 J=S Е, 
才 有 f=2. ВЕНН 2106, ЕТЕНЕ ЛЕН Е АЛЕН. Mr 
特 勒 - 伦 就 (Heitler-London) 由 量子 力学 处 理 氨 分 子 问 题 时 发 现 ， 
组 成 氨 分 子 的 两 个 电子 的 自 旋 平 行 和 反 平 行 时 ,系统 的 能 量 不 同 ， 
这 部 分 依赖 于 电子 取向 的 能 县 称 为 交换 能 . ТЕШ ЖН Е.ЖЕЖЕВНЕ 
tH ,在 铁 磁 体 中 招 邻 原子 d— d 电子 云 交 委 产生 的 交换 作用 ,使 电 
子 自 族 平行 排列 ,产生 自发 磁化 . 

可 以 把 铁 磁体 看 作 是 由 许多 元 磁 矩 组 成 的 磁 点 阵 , X 4 Н Ж 
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一 自 旋 相 互 作用 的 系统 的 哈密 顿 ( 即 海 森 集 哈密 顿 ) 为 
Н. =— > У) IS, e S= 2 >> TS, * S; 
(6 — 16) 

式 中 h ДЖ кх E p Rš Жу H БЕ ИЕЛИ, ЖА. E h Н ДЕЛІ 
(S,=S,=S), НДЕ A". 4* 是 第 : 和 第 ;两 格 点 上 电子 间 的 
н. 设 4 只 与 第 i,j 两 格 点 的 距离 有 关 , 即 | 

А, = A(R — R,|) (6 — 17) 
由 于 交换 积分 A 与 此 两 格 点 问 电子 云 重 登 有 关 , 故 交换 作用 是 短 
程 的 ,只 需 计 入 近邻 格 点 间 的 作用 即 可 ,因此 (6 一 16) 式 可 改写 为 


АиФ) 


н.--% 212 +SS, 


-- ISP УЗ РУЛ — @;) 《6 — 18) 


式 中 ,0 ЖЖ! RAR Ë e + zz [n] p: — Fl 5Е ЯНУ Ж f8 , BZ ВЛЕН 
取 问 角 ， 

如 果 存 在 外 磁场 В,, W| Y hy mE S 4- R£ ВЕХИ BE , 3 > 
哈密 顿 成 为 | 


>A REN 
13, == = = 1817 2; 2,сов(6, — 0,) 一 Boy 2 cosb 
《6 — 19) 
其 中 ВКЛ. 


程序 6-2 SPNENG НЕШУ КНИА ОСАЛ ЖТТ ЕЗ 
方法 用 于 统计 物理 求 平 稀 性 质 的 一 种 具体 方法 , 详 见 附录 í), 
照 (6 一 18) 和 (6 一 19) 式 计算 了 二 维 自 旋 系统 的 能 量 , 求 得 一 个 和 N 
XN 个 自 旋 的 格子 在 平衡 态 附近 的 各 微观 状态 的 能 量 的 统计 平 
均值 和 能 量 均 方 根 的 统计 平均 值 . 结果 示 于 图 6-5. 从 图 可 见 , 取 
NN 之 5 时 ,一 个 NXN 个 自 旋 的 格子 ,就 可 充分 好 地 描述 二 维 自 旋 
系统 的 能 量 状态 ,其 相对 的 能 量 均 方 根 伪 差 约 为 3%. 
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a p 
š (CAE) Y/N’ 0, 040 ~ A 
10 | 0. 0361 Е 3 
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: |} 
| — 1. 4 (Еу / N: 
F | Жж 
Ф 1,6 一 一 一 
0 2 4 6 i0 
„р, 
图 6-5 НЗЛЕНЛИНЙИНХОММЫЛ АДЕМ ТА ВЕ 
ЕРЮН ЛА Е ЗЕ А. 


下 面 我 们 采用 平均 场 理 论 计 算 铁 磁性 物质 的 磁化 强度 ,根据 
(6 一 18) 式 ,第 ;个 原子 和 它 的 近邻 前 相互 作用 可 以 用 单 原子 只 密 
2, 表示 : 


Ei = — 245, Уз, (6 一 20) 
式 中 ,2 为 最 近邻 原子 个 数 .注意 到 第 ， ЕТИШ к Уя В 
角 动 量 的 关系 是 
и 一 一 g, pS: (6 — 21) 
其 中 朗 德 因子 g, 二 2, 电 子 的 旋 磁 比 = ==. 再 注意 到 (6 一 20) 式 
右边 的 求 和 部 分 可 用 系统 的 етене 
_ l< 
зе 2245, (6- 22) 
而 磁化 强度 MM 与 “5S; 有 头 , 设 单位 体积 中 有 1 个 原子 ;借用 (6 一 


21) 式 得 
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М = п(и) = — ng,B(S) (6 一 23) 
将 66 一 21) 至 (6 一 23) 式 代入 (6 一 20) 式 ,并 以 单 原 子 交 换 能 
ЕКЕНІН ГЕ 227, ,得 到 


E =— HM • АМ 《6 — 24) 
_ 2А7 = 
= MET В? (6 一 25) 
如 果 令 
В,, = АМ (6- 26) 


则 单 原子 的 与 自 旋 取向 有 关 的 能 量 可 表述 为 
Ex 一 一 Hi “В, (6 — 27) 

(6 一 27) 式 形式 上 是 在 磁场 ВЕН FRE u 的 磁化 能 的 表达 
式 , 此 式 表 明 , 铁 磁体 中 第 i 个 格 点 上 原子 所 受到 的 交换 作用 等 效 
PIER SERIE u 受到 一 个 与 磁化 强度 M 成 正比 的 磁场 
By 的 作用 . Br 有 许多 名 称 , 如 有 效 场 、 分 子 场 或 内 场 ， 

从 (6 一 26) 式 可 见 , 有 效 场 与 磁化 强度 方向 相同 ,Br 作用 在 
某 个 元 磁 算 上 ,就 使 这 个 磁 矩 赵 于 与 其 它 格 点 的 元 席 矩 的 共同 取 
ш. 因此 ,没有 外 磁场 时 , 铁 磁 体 的 每 一 磁 畴 内 的 元 磁 矩 也 有 取 革 
一 共同 方向 的 趋势 ,这 就 是 自发 磁化 的 起 国 . 

有 外 磁场 В, 存在 时 ,有 效 场 和 外 磁场 同 向 ,作用 在 铁 磁 体 中 
每 个 元 磁 矩 上 的 总 磁场 为 ， 

Br = В, + Br (6 — 28) 

回顾 在 8 6.1.2 中 计算 朗 之 万 顺 磁性 的 磁化 强度 的 情形 ;外 
项 场 强迫 原子 磁 矩 转向 外 场 方 向 ,但 热 扰 动 却 力图 使 它 呈 混乱 排 
列 ,两 者 共同 作用 的 结果 达到 平衡 分 布 ,产生 一 个 平行 于 磁场 方向 
的 磁化 强度 , 而 对 于 铁 磁体 ,情形 有 些 类 似 , 所 不 同 的 是 ,; (1) 铁 磁 
ЖЕЛЕ ЖЕНА Rk ka ; (2) УКН ӨЗЕН ЧЕН. ШЕН 
在 每 个 元 磁 矩 上 的 场 是 总 磁场 Br 注意 了 这 两 点 ,就 可 将 计算 朗 
之 万 顺 磁 性 的 方法 用 于 计算 铁 磁 性 的 磁化 强度 , 为 此 ,用 总 自 旋 角 
量子 数 s 代替 总 角 量 子 数 7, 则 代 赫 (6 一 11)? 式 的 是 
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у = g, S Вт/Ав1' (6 — 29) 
代替 (6 一 10) 和 《6 一 12) 式 的 为 | 
М = ny = ng, ив В, у) (6-- 30) 


В,{у) = = ! oth| 485 25 5 | 一 zcoth| 2 


瑟 .(7) 仍 然 是 布 里 渊 函 数 , 与 如 (7 的 差别 仅 是 用 总 自 族 量子 数 s 
代 埋 了 总 角 量 子 数 了, (注意 ,本 节 使 用 $ 表示 总 自 诞 角 动量 , 它 与 
总 目 旋 量子 数 s НАД |S|2=s(s+ 15). 
可 将 (6 一 30) 式 改写 为 
М = М,В, (у) 《6 一 32) 
Мұ = ng, Hps 《6 一 33) 
由 于 吾 (y) 是 从 0 到 1 之 间 取 值 , 故 Mo 是 磁化 强度 的 最 大 值 , 它 
对 应 于 所 有 元 磁 矩 说 同一 方向 排列 的 情形 ， 
定义 一 个 无 量 岗 的 约 化 磁化 强度 о 


MO _ Б 
=. = В,(у) (6- 34) 


(6 一 29) 和 (6 一 34? 式 构成 了 一 个 计算 铁 磁 体 磁 化 强度 的 联 立 方程 
组 .和 将 (6 一 25) 式 和 (6 一 32) 至 (6 一 34) 式 代入 (6 一 26) 式 ,得 到 


A 


2 А25 
B e = 6 — 35) 
и = ВН 
再 和 将 人 6 一 28) 和 (6 一 35) 武 代入 (6 一 29) 起 ,得 到 
А» 
у= у + Sre (6 — 36) 
K Fu en 
Yo A Èa T В, ( 6 37) 


综合 (6 一 33} 和 (6 一 36) 式 ,得 到 有 外 磁场 B. 存在 时 的 计算 约 化 左 
化 强度 的 联 立 方程 组 ; 


g = В,(у) 
_ Z. Has oAVs’ (6 иш 38) 
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当 未 加 外 磁场 时 , 召 , 一 0, 铁 磁体 仍然 自发 研 化 ,我 们 将 约 化 目 
发 磁化 强度 o 用 о, 表示, АВАЛТ НО Т. ВР, Н ЖЕ 
化 接近 消失 , 即 о--0. 从 (6 一 38) 式 可 知 , 这 导致 y. 将 B. (yE 
у=0 附近 展开 ,得 到 
Spl 
35 > ` 
于 是 ,在 B.=0,T—T, 时 ,方程 组 (6 一 38) 式 成 为 


В,(ж) == (6 一 39) 


(6 - 40) 


此 两 式 部 是 关于 y 和 的 线性 方程 , 令 此 两 式 给 出 的 o/y 的 斜率 
相等 ,得 到 铁 磁 - 顺 磁 临界 转变 温度 为 


”242s65 + 1) 
жұн Zka 


将 (6 一 41) 式 代入 (6 一 38) 式 中 ,并 取 Bo 二 0, 就 得 到 计算 自发 磁化 
强度 а, 和 约 化 温度 了 /了 .的 联 立 方程 组 ， 


(6 — 41) 


| б, = В,(у) (6 一 42) 
35 T, 
y = к 十 1 т (6 43) 


这 是 一 个 互相 烛台 的 非 线性 联 立 方程 ,不 能 用 解析 方法 求解 ,但 很 
容易 借助 计算 机 用 自治 方法 求 得 数 信和 解 . 图 6-6 是 采用 程序 6-1 
MAGNET ,根据 平均 场 理 论 的 (6 一 427 和 (6 一 43) 式 取 总 自 旋 角 
动量 量子 数 s 分 别 为 1/2;1 和 1000( 后 者 可 以 认为 是 后 >ee7 时 计 
算 的 约 化 自发 磁化 强度 和 约 化 温度 的 依赖 关系 .实验 结果 也 标记 
在 同一 图 上 . 从 图 可 见 , 铁 、 久 、 钴 的 实验 数据 阿 :一 六 的 曲线 符合 
得 很 好 . 
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Қазы 
шым 


约 化 自发 磁化 强度 о. 


( — кл — 
0 0.2 0,4 0,6 0.8 1.0 
ФДЕ Е T/Te 


6-6 ЖААШ = 二 (上 ),1( 中 ),1000( 下 ?计算 的 约 化 自 


发 磁化 强度 - 约 化 温度 曲线 , 铁 . 镍 、 钼 的 实验 点 都 落 在 = it 
算 曲 线 上 . 


程序 6-1 最 之 万 顺 磁性 的 平均 磁 答 和 铁 磁性 
的 目 发 磁化 强度 的 计算 


二 ,功能 


输入 每 原子 磁 短 的 总 角 动 量 量 子 数 了 , 按 顺 磁性 的 朗 之 万 公 
式 计算 每 原子 平均 磁 拢 与 外 磁场 温度 比 的 关系 ,或 输入 每 原子 的 
自 旋 角 量 子 数 ,按照 分 子 场 理 论 计算 约 化 磁化 强度 和 约 化 温度 的 
关系 . 
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三 .原理 


1. 选取 计算 类 型 控制 参量 的 数值 (1 sk 220,230 ЕТІЛ ТЕЛІ 
铁 硕 性 的 计算 ， | 

2. EMER ЛЕТИ S LAJ ИЕ Юй В,/Т 
作 目 变数 ,输入 目 变 数 的 个 数 积 步 长 .根据 (6 一 11) 和 (6 一 12) 式 计 
A y 和 B,Cy) 的 值 ,最 后 按照 (6 一 10) 式 计算 相应 于 各 个 B./T (Ë 
的 每 原子 平均 磁 拢 x 

3. 作 磁 铁 性 计算 时 ,输入 量子 数 S,K 和 J, 取 约 化 温度 T/T 
作 自 变数 ,输入 自 变数 的 个 数 和 步 长 . 对 于 每 一 个 人 下/T, 值 ,对 联 
立方 程 组 46 一 42) 和 (6 一 43) 式 自 褒 地 求解 ,得 到 约 化 的 名 发 磁化 
强度 c,. 所 谓 目 治 求解 是 最 先 设 定 一 个 解 的 初 值 a.” ,将 此 值 代 入 
到 (6 一 43? 式 得 到 该 方程 组 变量 уН у, Xl уел ‹6— 
42) 式 得 到 о, 的 第 一 近似 值 wx 各, 从 而 算得 УИ "Не k W, 2 
代 下 去 ,当前 后 两 次 算得 的 a, 值 之 差 小 于 某 个 小 量 < 时 (cp 人 一 
а)” е), ПЛА УАВ a,“*+? 就 是 所 要 求 的 自治 解 . 


五 ,变量 说 明 


“АЖАЛЫ; КУНІН АҒЫ. 

ІТХРЕ " :计算 类 型 选择 参量 , 取 值 1 或 2.1 为 计算 裔 之 万 顺 磁 性 
物质 的 每 原子 平均 磁 矩 py 与 外 场 温 度 比 (B6/ 工 ) 的 关系 ; 
2 为 计算 铁 磁 性 物质 的 约 化 自发 磁化 强度 Co,) 与 约 化 温 
度 (T/Tc) 的 关系 . 

S“ ,AL" AJ :固体 中 一 个 原子 的 自 旋 量子 数 . 轨 道 量 子 数 和 总 最 
子 数 . 

XT: BEZE. 计算 顺 蔽 时 是 外 场 与 温度 之 比 B./T ,单位 为 Tes- 
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输入 计算 类 型 ,ITYPE=1( 顺 磁 ) ，2( 铁 磁 ) 


输入 量子 数 以 及 变量 XT(Bo/T 或 TATC) 的 数目 NXT 和 步 长 DXKT 


ті НЖЕЫХТИЖН 


I=1 
' 2 
| 
р] Ев ІЧ--0 
y 一 кь -- 
= 


u=g] B уу 
в MD p (y-n) 
ШШЕ L ~ 
5, анығы ) в ‹ "эе аю | ЧЕ нЕ IN= N+ 1} 
ЕТЕНЕ Y 


输出 约 化 温度 T77 及 相应 的 
约 化 的 自发 磁 磁化 强度 


流程 图 6 一 3 
la/K; 计 算 铁 磁 时 是 约 化 温度 工 /T, AEP. 
МХТ '°.ОХТ'.НЖЁ XT 的 数目 和 变化 步 长 . 
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ВЕ”,Ү. Ж ИЙ ЕН BF 为 每 原子 的 平均 磁 矩 :mA 一 8g7Bv (y) АК 
单位 是 ya: 计算 铁 磁 性 时 ВЕ 为 约 化 自发 磁化 强度 ;oa,== 
B,( y) GE. В, ‚В, У EHA, у 是 其 宗 量 . 


六 .计算 实例 


Jy p| TL P EE $ ВСИ АК EA ВЕЛКЕ PS + 
紧 体 的 每 离子 平均 磁 矩 与 磁场 温度 比 的 关系 .它们 的 离子 的 固有 
位 矩 是 自 旋 磁 矩 ,总 自 旋 角 动 量 量 子 数 分 别 为 3/2.5/2 和 7/25. 
轨道 角 动 基 量 子 教 工 =0, 总 角 动 量 量 子 数 =$, 其 它 输入 参数 取 
ІТҮРЕ =1,МХТ=21,0ХТ=0. 2. ЕЖЕЛДЕ 6-4. 

再 计算 铁 磁 性 物质 的 约 化 自发 磁化 强度 与 约 化 温度 的 关系 ， 
取 s= ++ 1 和 1000( 后 者 近似 于 取 ->co) 分 别 计算 . 因 铁 磁性 物 
质 的 朗 德 因子 gsz2, 故 艺 一 0 一 Si 其 它 输 入 参数 取 ITYPE=2, 
NXT=21,DXT==0.05, 计 算 结 果 见 图 6-6. 

本 程序 运行 时 ,采用 人 机 对 话 形式 , 按 屏幕 提示 以 目 由 格式 键 
入 输入 数据 . 运行 结果 除 在 屏幕 上 显示 外 ,还 生成 如 OUT 的 输出 
文件 贮存 输入 积 输 出 数据 备查 . 此 外 ,还 生成 一 个 输出 数据 文件 
MGDATA , 供 在 屏幕 上 绘图 并 经 打印 机 输出 用 ,绘图 程序 参见 程 
PE 7-2 PLTCV2. 

运行 指令 :MAGNET OUT 


七 . 源 程序 :MAGNET + FOR 


PROGRAM MAGNET 
DATA AKB,AMUB/]. 380622Е--23,9.274096Е--24/ 
CTH(X)=¿(EXP(X)+EXP(—X))/(EXP(X)—EXKP(—X)) 
OPEN(6,FILE=’ ”,8ТАТТУ5-- NEW') 
OPEN(10,FILE='MGDATA',STATUS= *NEW') 
WRITE (»,10) 
10 FORMAT SELECT THE CALCULATION ТҮРЕ (IN°, 
/ "РОТ 1 OR 22.7/3Х,71. CALCULATE AVERAGE °, 
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/ "MAGNETIC MOMENT ОЕ PARMAGNETISM;'/3X,'2.' 
/ + CALCULATE SPONTANEOUS MAGNETIZABILITY' 
/ :1 OF FERROMAGNETISM. '/3Х,'1ТҮРЕ = "> 
READ (* ,* ) ITYPE 
WRITE( » ,20) 
20 FORMAT {° INPUT THE QUANTUM NUMBER ,' 
/ ‚' S+AL.,AJ == 9 
КЕАПр<»,») 5,АІ,,А) 
С-әəңҢІ.О-КСА)ж (AJ+1.0)+5 ж (5+1. 0) 
/ —AL + (AL+1.0))/2.0/AJ/(AJ+1. 0) 
WRITE( * ,30) 
30 КОКМАТ С INPUT NUMBER $. STEP—LENGTH ОЕ XT ,' 
/ ‚*МХТ,ОХТ = ™) 
READ( +, +} NXT,DXT 
ХУКІТЕ(6.40»  SIAL,A],NXT,DXT 
40 FORMAT(3X ,'INPUT DATA: '//” THE QUANTUM ' 
/ s NUMBERS :7,28Х,75,1,,1 =',3F4.1/ 
Г ” NUMBER 5 STEP—LENGTH OF TEMPERATURE’ 
/ a PARAMETER, NXT,DXT = *,13,Е5.1) 
МЕГГЕ + ,50) 
ҰЕІТЕ Сб, 50) 
50 КОНМАТ(/3Х, ОГТРІТТ БАТА. 9 
ҰҮЕІТЕ(10.602 NXT 
60 ҒОЕМАТ(6Х.1?» 
СО ТО (70,90) ІТҮРЕ 
70 WRITE ж ,805 
WRITE(6,80) 
80 ГОЕМАТ (/' ВО/Т МАСМ. МОМЕМТ?”? 
СОТО 110 
90 WRITEC* .100) 
WRITE (6,1007 
100 FORMAT(/ Т/ТС REDUCED МАСМ. ') 
110 DO 160 1=1,МХТ 
XT=DXT + FLOAT(I—1) 
IFO(XT.LT. 0. 05) XT=0, 05 
СО TO (120,130) ITYPE 
120 Y=XT*G + AJ + AMUB/AKB 
A=Y x (2. * А]-+Е1.)/52. «АТ 
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В-Ү/(2. * АЈ) | 
ВЈ = 2. # АЈ+1. 2/02. < АЈ *#СТН(А›—СТН‹В)/ (2. + АЈ) 
BF=G * АЈ + BJ 
GO ТО 150 
130 ІМ-0 
ВЕ--1.0-ХТ 
IFOBF.LT.0.001) ВЕ = 0, 001 
140 ВЕР= ВЕ 
Ү ~ ВЕ * 2,0 + S/(S+1.)/XT 
А=Ү ж (Z. *5+1. )/(2. * S) 
B=Y/(2. +5) 
ВЕ = (2. <*S+1.)/(2. #5) + CTH(A)—CTH(B)/(2, +5) 
ІМ--ІМ-ҒІ 
IF (IN. СТ. 100) СО ТО 150 
ІЕСАВӘВҒ--БЕР).С7,1.Е- 3) GO TO 140 
150 УУКІТЕ(< * ,170) ХТ,ВЕ 
ҮУКІТЕ(6,110) ХТЬВЕ 
WRITE(10,170) XT ,BF 
160 CONTINUE 
170 БОКМАТ(4Х,Е5. 2,5Х,Е5. 2) 
CLOSE(10) 
STOP 
END 


程序 6-2 二 维 目 旋 系 统 能 量 的 
蒙特 卡 洛 法 计算 


— {РА :5РМЕМС 


二 ,功能 


采用 蒙特 卡 洛 方 法 ,从 海 森 堡 哈 密 顿 出 发 ,计算 无 磁场 或 有 磁 
场 存在 时 ,二 维 自 旋 格子 的 能 量 及 其 均 方 根 值 . 
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1. 取 和 XN 个 自 族 的 格子 ,格子 的 周边 满足 周期 性 边界 条 
件 , 以 此 表示 一 个 二 维 自 旋 系 统 . 

2. 以 随机 数 给 格子 的 每 个 自 旋 的 取 癌 角 赋 初 值 . 

3. 按照 (6 一 19)、( 附 录 2 一 17) 和 《附录 2 一 18) 式 进行 马尔 科 
夫 过 程 ,使 体系 从 随机 的 初始 状态 出 发 ,达到 平衡 态 附 近 , 各 自 旗 
HY [6] A Fa For F 4825 BU fH. 

4. 按照 (附录 2 一 19) 式 ,通过 马尔 可 夫 过 程 , 对 微观 状态 进行 
随机 抽样 ,计算 并 输出 系统 总 的 和 每 个 自 旋 平均 的 能 量 及 相应 的 
均 方 根 偏差 . 


四 ,流程 图 6 一 2 


ж ZEHA 


x 为 输入 变量 ; * * 为 程序 中 已 设 定 的 输入 变量 ;十 为 输出 变 

N :所 取 的 二 维 自 旋 格 子 每 边 的 自 旋 数 自 . N<10. 

BMUA ` ,磁场 参数 < 和. 8B, 为 外 加 磁场 强度 ,x 为 每 个 自 旋 的 磁 
Ж.А 为 交换 积分 ， 

AM: ,C* * XN: ` ,分别 是 用 乳癌 余 法 生成 随机 数 的 好 推 公 式 
{附录 2 一 9) 的 参数 M.C MAE о. 

К.Е НЕ а Н оК. 

M'HER EFEC M= 1000. 

THETA U, J): I, J=1,N +2. $5 I T, 7 НЫ zy 平面 
上 一 固定 轴 的 夹 角 6. 单 位; 弧度， 

EIM :在 第 IM 次 所 样 时 所 得 到 的 自 旋 取 向 组 态 的 销 况 下 ,系统 的 
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『 开始 
输入 二 维 自 旋 格 子 每 边 的 自 旋 数 目 积 磁场 参数 


用 随机 数 发 生 避 给 每 个 自 旋 取向 角 赋 初 人 
用 周期 性 边界 条 件 给 边界 处 的 自 旋 取向 角 路 初 值 


进行 马尔 可 去 过程， 使 体系 从 随机 的 初始 状态 出 发 达 
到 子 ' 衡 意 附 近 ， 各 自 能 取 呆 角 取 接近 平衡 态 的 值 


ІМ--1 


计算 在 第 IM 次 抽样 时 系统 的 能 量 E 


E 一 E 二 RM, 本 一 本 十 EM 


进行 一 步 马 尔 可 夫 这 程 ， 使 系统 的 各 自 旋 取向 另 一 组 值 


үе РЕ x 
,TEAYVRm _ 
___ (му ов 


М‹М-- 1) 


流程 图 6 一 2 


总 能 量 . 
ЕТ" ,ЕАҮК" :从 马尔 可 夫 过 程 抽 祥 计算 得 到 的 自 旋 系统 的 平均 
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ЕЕ ЗЕН Т Ë E J BD «Е/М. 
DE“, БЕАУК",Ң В 8 (E ff (E )/N: 相应 的 均 方 偏差 


(AE)? , / (CAFE) /N. 
六 , 子 程序 说 明 


1. RAND (XN ,R) 

ЕКЕНІ. 采用 乘 同 余 法 鸽 代 公式 (附录 2—9); z,- = 
сх„(Моам),хМ 是 上 次 取样 所 得 的 随机 数 , 忍 是 本 次 取样 输出 的 
Ш SRS. 式 中 的 各 参量 均 已 在 程序 中 设 定 ;c= 二 899,M= 
32768, 初 值 zo 王 13. 

2, LIMIT(XN,N, THETA) 

在 上 次 取样 所 得 的 各 自 旋 取向 角 的 基础 上 ,对 每 个 角逐 一 加 
_E 0 2л 向 的 随机 数 , 完 成 一 个 马尔 可 夫 过 经 ,根据 撕 写 两 做 观 
RE [ЕЛЖ CHR 2 一 17? 式 和 确定 马尔 可 夫 链 进行 方向 
的 判 据 ( 附 录 2 一 18) 式 ,确定 各 自 旋 的 取向 角 ТНЕТАС1,/2,1,7 
=1,N+2:N 为 二 维 自 旋 和 格子 每 边 的 自 旋 数 日 ;XN 为 上 次 取样 
得 到 的 随机 数 ， 


七 ,计算 实例 


分 别 计算 N= 2.3. eee 10 的 二 维 自 旋 系 统 总 的 和 每 个 自 施 
平 志 的 能 其 及 相应 的 均 方 根 偏差 , 在 计算 无 磁场 的 情况 时 , 取 
如 op 下 /4 一 0. 计算 结果 示 于 图 6-5. 

本 程序 运行 时 ,采用 人 机 对 话 方式 , 按 屏幕 提示 以 自由 格式 键 
和 人 输入 数据 ,运行 结果 除 在 屏幕 上 显示 外 ,还 生成 如 CDT 的 输出 
文件 贮存 输入 和 输出 数据 备查 . 

运行 指令 ;SPNENG OUT 
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10 


40 


20 


60 


70 


八 , 源 程序 5РМЕМС • FOR 


PROGRAM SPNENG 
REAL * 8 PI2,XN,R 
DIMENSION ТНЕТА(12,12) 
DATA PI2,XN,M/6. 28318530719D0,13, DO,1000/ 
ОРЕМ(6,ЕП,Е--" ’,STATUS=’'NEW’) 
WRITE( * ,10) 
FORMAT( INPUT NUMBER OF SPINS FOR EACH ', 


/ ТЕПСЕ, N == 0 


/ 


КЕАР‹ a, ж) N 

WRITE( * ,20) 

FORMATO INPUT MAGNETIC—FIELD PARAMETER :', 
3X,'BMUA = "0 

КЕАр(»,») BMUA 

WRITF(6,30) N,BMUA 

FORMAT(3X, INPUT DATA: /” THE NUMBER ОЕ", 


/ 'SPINS FOR EACH EDGE; N = ',12/ THE ', 
/ 'MAGNETIC—FIELD PARAMETER: BMUA ==”,Е10. 3) 


ІЕМ. GT. 10. OR. N. LE. 0) GO TO 200 
рО 40 I=1,N 

DO 40 ]=1.М 

CALL КАМІКХМ.К) 
ТНЕТАЧ,Ј) =R + Pl2 


DO 50 1=1,N 


/ 
/ 
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ТНЕТА‹М+1,0 = ТНЕТА (1,1) 

THETA(N+2,D = ТНЕТА (2,0) 

ГО 601--1,М--2 

ТНЕТА(1,Ҹ-+1) = ТНЕТА (1,1) 

ТНЕТАЧ,М+2) = ТҢЕТА (1,2) 

WRITE( * ,70) 

WRITE¢6 ,70) 

FORMAT (3X OUTPUT DATA ,'!⁄/⁄/' ANGLES ОЕ? 
‚"ЅРІМ ORIENTATION AT THE INITIAL’ 
‚ТАТЕ, THETA(L J) 9 

РО 801-2,М--1 

WRITE( ж ,90) СТНЕТА(1,).1--2.М--1) 


50 WRITE(6,90) (THETA (1,}), J=2,N+1) 
90 ЕОКМАТ(2Х,10БЕ6. 3) 
WRITE( ж ,100) 
100 FORMAT(/* TRANSFORM FROM THE INITIAL STATE' 
/ ,* INTO EQUILIBRIUM STATE: ',/,5X,'IM = ” 
DO 110 IM=1,M 
IF (IM. EQ. (ІМ/10) + 10) WRITE +, * ) IM 
110 CALL LIMIT(XN.N.THETA) 
WEITEC ж ,120) 
120 ЕОКМАТ(/' CALCULATE THE AVERAGE VALUE & рем”, 
/ ATION ОЕ ENERGY OF SPIN SYSTEM ,*/5X,'IM = 9 
E=0. 0 
Е2:=0, 0 
DO 140 1М=1,М 
IE (IM. EQ. (IM /OY ж 10) WRITE( +, ж ) IM 
EIM = 0. 0 
DO 130 І--1.М 
DO 130 І--1,М 
РТНІ=ТНЕТАЧ,Ј)- THETA(1,J+1) 
РТН2= ТНЕТАЧ, |р = THETA(I+1,J]) 
IF(ABScCDTHI). LT.1E—5) Ті=0 
ІҒСХАВ5ООТН2».1.7.1Е--5) Т2-0 
130 ЕМ= ЕМ —COSC5DTH1)—COSCOOTH2) 
/ -НМОА»СОЭ(ТНЕТА«Һ/» 
Ез-Е--ЕІМ 
Е2-Е?ҒЕІМ < EIM 
CALL LIMIT(XN,N ,THETA) 
140 CONTINUE 
WRITEC ж,150) 
УКІТЕ(6,150; 
/ 2 THE EQUILIBRIUM STATE, ТНЕТА(1,р:79 
DO 170 1=1,М+2 
DO 170 J=1,N+2 
160 ІЕ(ТНЕТАФ.).1,Т.Р122 GO TO 170 
ТНЕТА4.)>2-“ТНЕТА(1,|)-РІ2 
СОЗ TO 160 
170 CONTINUE 
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DO 180 I=2,N+1 
WRITE< # ,90) (ТНЕТАС.}).]=2.,М-+Е1›) 

180 WRITE(6,90) (THETA(I,J),]J=2,N+1) 
ET=E/FLOAT(M) 
EAVR=ET/FLOAT(N * N) 
DE=SQRT(E2/(FLOAT(M) + FLOAT tM — 1))) 
DEAVR=DE/FLOAT(N + N) 
WRITEC* ,190) ET ,DE,EAVR,DEAVR 
WRITE(6,190) ET,DE,EAVR,DEAVR 


140 ЕОВМАТС(/5Х,'Е =*,F10.5,3X ,* DE =',F8.5 
/ /* EAVR -”Е10.5,3Х, ФЕАУК =',Е8. 5) 
CLOSE (6) 

200 STOP 
END 


SUBROUTINE RAND(XN,R) 
REAL* 8 АМ,С,ХМ,К 
DATA АМ,С/32768. D0,899. DO 
XN=XN * С 

10 IF(XN. LT. АМ» GO ТО 20 
ХМЧ-еХМ--АМ 
GO ТО 10 
20 К--ХМ/АМ 

RETURN 
END 

SUBROUTINE LIMIT(XN,N, THETA) 
REAL + 8 РІ2.ХМ,К 
DIMENSION THETA (12,12›,0ТН<8) 
DO 40 I=2,N+1 
DO 40 J=2,N+1 
CALL КАМІХХМ,К) 
THE=THETA(I,J)+R + 6. 28318530719D0 
DTH(1)=THE—THETA(1,J—1) 
DTH(2)=THETAU,J)—THETAKC ,J—1) 
DTH(3)=THE-—THETA(I,J+1) 
DTH(4)=THETA(i,J)— THETA(I,J+1) 
DTH(5)=THE—THETA(I—1,J) 
DTH(68)=THETA¿(L,J2— THETA(I—1,1) 
DTH(?7)= THE—THETA(I+1,J) 
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DTH(8) 王 THETA(L 了 一 THETA(I 十 1 了 ) 
DO 10 L=1,8 
10 IF(ABS(DTH(L)). LT. 1E—5) DTH(L)=0.0 
DH=—BMUA * COSCTHE) 
DO 20 L=1,4 
22 DH—DH—COS(DTH(2 + L—1))+-COS(DTH(2 + 12) 
IF (DH. LE. 0.0) GO TO 30 
W=EXP(—DH) 
CALL RAND(XN,R) 
IF (W. LT. R) GO TO 40 
30 THETA(LD=THE 
IF(1.EQ.2) THETA(N+2,J)=THETA(I,]) 
IF(.EQ.N+1) THETA(,J}=THETA(L)) 
IF(.EQ.2)》 THETA(I,N+2)=THETA¿I,D 
IF(. EQ.N+1) ТНЕТАЙЬ1-ТНЕТАС,І) 
40 CONTINUE 
RETURN 
END 


56.2 液态 金属 和 合金 的 电阻 率 


6.2.1 液态 金属 电阻 率 的 齐 曼 (Ziman) 理 论 


液态 金属 的 导电 性 质 , 可 近似 地 用 自由 电子 模型 描述 . АПИЙ 
定 ,液态 金属 的 导电 电子 形成 自由 电子 气 , 它 们 被 县 有 适当 尾 抒 的 
离子 散射 ,这 种 和 散射 可 以 应 用 一 和 阶 与 时 间 有 关 的 微 扰 理论 来 处 理 . 

根据 自由 电子 模型 ,电导 率 c RRA 

п = н,е?тіт (6 一 44) 

н я, 为 电子 数 密度 ;je 和 m РУПЕ ЕУ АЙП Ж: аЬ FË 
时 间 . 

为 了 计算 r, 考 虑 一 个 具体 的 电子 散射 过 程 . 设 体 积 V 中 有 М 
个 原子 ,电子 在 运动 过 程 申 被 它们 和 散射 ,在 玻 因 近似 下 ,单位 时 间 
内 波 矢 为 的 平面 波 散 射 成 波 包 为 所 的 平面 流 的 几率 是 
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Ры = SE [KIW RY NOE — En) (6 一 45) 
W) 是 所 有 原子 作用 在 > 处 的 一 个 电子 上 的 里 势 , 它 可 写成 各 原 
TRH u 之 和 , 即 

Wir) = ut — RD (6 — 46) 
令 q= k — k ЕШКІ 后 的 动量 转移 ， 并 设 散射 是 完全 弹性 的 , 那 
АЯ |к*|= [k], {ҖУЯ [КЕ О) |) 的 平方 : 
КЕІРӘУОІСУ| = Мабаў)|и(а)|' (6 — 47) 
AFH a (q ak it $ 2.2 和 82.3 中 讨论 过 的 结 梅 因数 ， 
硅 势 形状 因子 被 定义 为 
и(4) = (k + glut) |k = Диет — (6 — 48) 
将 (6 一 47) 和 (6 一 48) 式 代 人 (6 一 ы 得 到 
w= Sag) uO ӘСЕ, - E) (8—49) 


对 于 速度 为 v 的 自由 电子 к 

= 天 ,从 图 6-7 可 知 ,一 个 沿 电 pe 
场 方向 运动 的 电子 ( 波 矢 上 =.)， 2 | 

经 弹性 散射 后 , 波 和 成 为 如 ,有 ”一 二 一 一 人 一 一 一 
[K |= k= kn. K NERA A ERA 1 


量 为 上 一 Recosg, 散 射 前 后 速度 

的 减少 为 v(1 一 cos0), 此 处 9 是 B] 6-7 ЖЕҢИ EU Mr E h 
散射 前 后 波 矢 上 和 此 之 问 的 夹 шада Шы 

fü. Pr h F kk ЛЕСИ, S tunt [a] 8 НЕ [7] ЛЕ > yk p 
J: 001 —cos0) P >. HER RA 99 2 gÍ ОЕП А-ТА S Fa t АК, 
НЕЯ ХИТЫ ЈА Я. ВЈ НІ 五 一 sr 人 er 为 费 米 能 ,下 面 
还 采用 大 和 wr 分 别 表 示 费 米 波 矢 和 费 米 速度 ). 计 及 各 个 方 何 的 
散射 , 册 单 位 时 间 内 速度 的 减少 可 表示 为 
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7) 


== | (К 一 соѕ50) Р, D (Ер) атаб РДЕ, 《6 一 50) 
о 0 


г 2 
式 中 DCer) 表 示 在 费 米 能 级 处 某 个 自 旋 方 向 的 (向 上 的 或 向 于 的 ) 
НА, 
N/2 


D(e,) = 5 - (6 — 51) 
EEFI k |= |А А69 6. В 
q = 2kpsin 5 (6 一 52) 
er = 下 大 (6 — 53) 
从 (6 一 49) 至 (6 一 53) 诸 式 , 就 可 得 到 
1 1 mf 


2k p 
L= apa] aD lul) ldg (6-50 


起 中 吕 是 原子 体积 .再 将 (6 一 54) 代 入 (6 一 44)}? 式 ,得 到 简单 液态 
金属 电阻 率 的 表达 式 为 


312 iy 
аст деле | a (g) lu (q) |444 


2 2 
= Уен [alu zde (х=) (86—55) 
4 F Ü š 


上 式 就 是 熟知 的 Ziman 公式 . ЕДІ F i ZT k a BAP ің. 
只 要 结构 因数 a (q) РЛАР Ғ u(y) 的 值 准 确 可 靠 , 按 (6 一 
55 ) 式 算得 的 电阻 率 和 实验 数据 就 符合 得 很 好 (参见 程序 6-3 
LQMRE) 


6.22 液态 二 元 合金 电阻 率 的 齐 曼 - 费 柏 
(Ziman-Faber) it 


令 此 液态 二 元 合金 的 两 组 元 为 AM BB, 其 平均 有 效 价 电 子 数 
积 平 均 原子 体积 为 
25-С27,-4-0%,; (6 一 56) 
N = C,Q, 十 Cops (6 一 57) 
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由 此 可 得 到 费 米 波 天 kr: 


‚ _ 3л _ 3 (C,Z, + CaZs) — 
k = р = Cn, 40,0, (6 一 58) 
与 液态 金属 的 屡 势 矩阵 元 (6 -47) 式 相对 应 ,液态 二 元 合金 的 
МЕ БАН СТЕ: 


(k + qlW (r) |& = C.S AW, (g) 十 ОРАУ (q) (6 — 59) 
(k q IW(r) |Е) |2 E CCS aW (q) + C,S,sW3 (q) 


+ 2(C.,Cs)'!S, aW a Cg) Woo)) 
(6 — 60) 
式 中 的 Saas Sas H 3Sss, 就 是 8$82.3 中 的 阿 希 克 洛 夫 - 朗 瑞 斯 
(Acheroft-Langreth) 仿 结构 因数 Si ,Sz | S,s. 
与 液态 金属 电阻 率 的 人 6 一 55) 式 相对 应, 液态 二 元 合金 的 电 胃 


率 为 
2 
Р- әлі йыны saV a+ 2 (CaCa) ES aa W a Welzridr 
Ж.Ш. 
ше 
==.) 
(6—61) 


Ziman-Faber НЕЕ ЛЯ алл (9) „авв (4).алн (а), Ç 
们 与 Acheroft-Langreth 偏 结 构 因 数 的 变换 关系 是 : 
ЭЖҰ (а) = LS, (gq) 一 С/С 
авн) = Sarig) 一 С,2/С, 
qaa (q) = сеа +1 
以 此 式 代 入 (6 一 61) 式 ,得 到 


2 2 
= кек |e,c,iw, — Wal? + СА ала -+ CaW алы 
қ F 


(6 一 62) 


十 2C,CWaW жал хіх (т = С) (6 — 63) 
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引入 平均 结构 因数 a (4) : 
САИ а АА + 2С„С»\/ aW вада + СЙ ая» 


а= CAW + 2C,CIW, W, + САМ 
(6 — 64) 
将 (6 一 64) 式 代入 (6 一 63) 式 ,得 到 
p= р + 0” (6 — 65) 
式 中 
а= o | (САУА 4-С,М%12002М42 (6- 66a) 
'= Ун | C,C.IW. 一 Wa l'O — 20044 


(6 — 66b) 

图 6-8 给 出 了 按 公式 (6 一 61) 用 程序 6-4 LBARE 计算 的 在 
100 守 时 的 波 态 二 元 合金 Na-K 的 电阻 率 与 狠 的 原子 数 浓度 的 关 
系 . 计算 时 采用 硬 球 模 型 { 参 见 $ 2-3 和 线性 局 域 帮 势 . E 
赫 恩 - 阿 巴 留 可 夫 {Heine-Abarenkov) 模 型 赎 势 相 比 ,不 同 之 处 是 


30 


Ө! 20 
ч 
= 
£ 10 
к 
Б 
fg! 
Ü 
Ü 0. 2 0.4 2.6 0. 8 1.0 
Na ЕТЕ ë 
图 6-8 Жел Na-K 在 100 C IF н ËB 3: 
与 台 金 中 钾 的 原子 数 该 度 的 关系 
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— pr (r < Ru) 
U(r) = (6 一 67) 
| £ (r 之 Rx) 


式 中 的 常数 请 由 一 Rw 处 的 连续 性 条 件 确定 :一 短 . 由 此 得 到 
未 考虑 周围 电子 和 其 它 离子 的 屏蔽 效应 的 裸 离子 须 势 形状 因子 为 


е [sin (Ам) 一 


] 一 са сфе? 


ё == — 


(6 — 68) 
孩 势 用 于 钠 的 声 子 谱 和 一 些 金属 的 弹性 性 质 的 计算 中 取得 了 与 实 
验 符合 很 好 的 结果 ,考虑 了 屏 需 效应 后 , 舌 势 形状 因子 为 


(6 — 69) 


жене УЙ Л EAR. П (Нагте) ЕН АЖЕ) ZR 


= we" а 


n| 21 


111) 


(6 一 70) 
Дир 
从 图 6-8 可 见 , 液 态 人 台 金 的 电阻 率 总 是 高 于 相应 的 纯 液 态 金 
属 的 电阻 率 , 对 于 Na-K 这 种 两 组 元 性 质 相近 的 液态 合金 ,在 原子 
浓度 约 为 50%% 处 电阻 率 达 到 极 大 值 . 如 果 认 为 组 元 成 分 改变 时 ， 
液态 合金 中 一 种 组 元 的 原子 被 男 一 种 组 元 的 原子 上 所 取代 ,将 (6 一 
64) 式 表示 的 atg) 看 作 此 液态 合金 的 平均 结构 因数 ,将 CWA H 
СЫРУ» 看 作 平 均 的 刚 势 形状 因子 的 平方 , 则 以 (6 一 664) 式 表示 的 
O 描述 了 合宜 电阻 率 随 成 分 改变 的 “线性 ”部 分 , 它 从 一 纯 组 元 的 
电阻 率 " 线 性 "地 变 到 另 一 纯 组 元 的 电阻 率 , 而 以 (6 一 665) 式 表示 
的 p" 给 出 了 两 组 元 孟 势 形状 因子 的 差异 产生 的 额外 电阻 率 , 这 是 
两 种 具有 不 同 离 子 势 的 原子 随机 分 布 使 在 其 中 行进 的 电子 人 遭受 更 
强 的 散射 造成 的 . 2 的 积分 式 中 含有 C4Cs 的 因子 ,这 导致 在 C ,— 
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Ca Ut НАУА. 这 就 是 图 6-8 上 液态 二 元 台 金 Na-K ЗІН 
举 在 中间 浓度 附近 出 现 了 极 大 值 的 原因 . 


程序 6-3 液态 金属 电阻 率 的 计算 


一 ,程序 名 ;LQMRE 


二 ,功能 


畏 入 出 努 参 数 ( 价 电子 数目 和 陨 子 心 半径 ) 以 及 硬 球 模型 参数 
《原子 体积 和 硬 球 直径 参数 ), 采 用 Ziman 理论 计算 液态 金属 的 电 
HE. 


三 .原理 
1. 采 果 硬 球 模型 ,按照 (2 一 119) 式 计算 液态 金属 的 结构 因数 


ag), 

2. НЕ, МЕНЕ (6 — 68) iL E AA T RTEA T 
Со), M ЕН (6— ТОНН Wk ЛГА Е e). 从 (6 一 69) 式 得 
ҰНҒА ЕЕЕ АҒ W). 

3. 按照 Ziman 公式 (6 一 55) 式 计算 液态 金属 的 电阻 率 . 式 中 
的 积分 采用 高 斯 求 积 法 计算 . 


С. ЕНІ 6 一 3 


五 ,变量 雇 明 


x 为 输入 变量 ;十 为 输出 变量 . 
Z ,RM" HARAS. 分 别 是 有 效 价 电子 数 和 离子 心 半 征 , 后 
者 的 单位 为 A. 
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ЖАИС ГАН 2615) 
和 硬 球 模型 参数 5 原子 体积 和 硬 球 直径 ) 


HARKER 


流程 图 6 一 3 


OMEGA SIGMA’ : 硬 球 模型 参量 . 分别 是 平均 每 原子 钵 积 ( 单 
位 ;A 和 硬 球 直 征 (单位: À). 
АКЕ, С.Х: 35 F ЯЖ К kr Б qg а/к. 波 和 天 的 单位 为 
2rBohr”™! 
A (X) :结构 因数 . 
W(X): 在 程序 运行 的 前 后 相继 表示 裸 离 子 的 和 计 和 屏蔽 效应 的 
БАДАНА. 单位 ;Ryd. 
EPS(X) :屏蔽 介 电 国 数 . 
zx , 子 程 序 和 外 部 范 数 培 明 
1. GAUSS(A,B,N,F,G) 
末 用 高 斯 求 积 法 计算 积分 的 子 程序 .A 和 B 分 别 是 积分 的 下 


限 和 上 限 1N 是 所 取 的 勒 让 德 (Legendre) 多 项 式 的 阶 数 ,本 程序 中 
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ON = 16:Е (х) С 是 输出 的 积分 值 . 高 斯 公式 是 
ІШС 一 Dy wif Ce) А r Æ Legendre 多 项 式 p, (z) 的 第 


;个 零点 的 位 置 , 相 应 的 权重 因子 zu: = а-а суа 当 积分 


项 取 任 意 值 时 , 有 | f(y)dy = 7 оо), RE y = 
Ë > “іш + Б 
2.Е(Х) 
计算 被 积 函 数 f(z) 的 外 部 函数 ,x 是 日 变量 的 值 ,x 二 gq / Аы. 
3, А(Х) 
乐 用 硬 球 模型 计算 结构 因数 a(g) 的 外 部 函数 ,z=g/kr. 
4. W(X) | 
НЕРВТЕР f. W (4) 的 外 部 函数 . 此 处 采用 的 是 
离子 芒 内 为 线性 势 的 修正 的 Heine-Abarenkov A 9 E 3. > = 
{/ Ёк. 

5. ЕР5(Х) 

TF 3 BE 8 Jr Нұра ЖОНУ КНР ЛАЛА ЕР Е ЈГ Е. 2 
=q/ kr. 


七 ,计算 实例 


计算 液态 金属 钠 和 钾 在 100C 的 电导 率 , 所 用 的 胜 势 参数 取 
Н С. M. Kachhava Я K. S. Sharma {Е J. Phys. F 10(1980)827 + 
Веј E S RAE ТЫН НЫЛ ЕН КЕ pk la J £: kt A 
S. Wang 和 S. K. Lai Æ J. Phys. F 10(1980)2717 M RH Hi ІНЕ 
结构 参数 所 得 到 的 硬 球 模 型 参数 . 对 于 液态 金属 钠 和 钾 分 别 取 2 
-1.,1;Ру--1.28А,1.70А:0--41.1А,79.1А? Ж с= 3. 35 А, 
4. 12 À . НАЕ 3 8 PH ffl #H BJ ІН ЖТА 6. 4 11 7. 3 ЕК 
姆 ， 厘 米 . 
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10 


40 


"И 


Жала, Н АИ, ВВ НЕР 
入 输入 数据 , 运行 结果 除 在 屏幕 上 显示 外 ,还 生成 如 OUT 的 输出 
文件 记录 输入 数据 和 输出 结果 备查 . 

运行 指令 :LQMRE OUT 


八 , 源 程序 ;LQMRE + FOR 


PROGRAM LQMRE 
COMMON PI,Z,RM ,OMEGA,SIGMA AKF 
EXTERNAL F 
OPEN(6,FILE 一 " *,STATUS= 'NEW') 

PI 一 3.14159265 
WRITE(C * ,10) 
ҒОВМАТС INPUT РАТА:'/3Х, 


/ 'Z,RM ,OMEGA,SIGMA = *\) 


READ(+* ,* )Z,RM,OMEGA, SIGMA 

WRITE(6,20) 

FORMAT(5X,'* + ж + INPUT DATA + + ж *") 
WRITE(6,30) ?.ЕМ,ОМЕСА,5ІОМА 
КОЕВМАТ(/"2-ж”,Е4.1,7, ЕМ =',Е6. 3,', ОМЕСА =' 


/ ‚„Е7. 3,7 SIGMA = ‚Еб. 3) 


RM =RM/0. 529 

ОМЕСА =ОМЕСА /0, 529 » ж3 

SIGMA=SIGMA /0. 529 

WRITE¿(6,40)5 

WRITE< + ,40) | 

РОМАТ (/,5Х,'# ж + x OUTPUT DATA + * * *'/) 

АКЕ = (3. 0 + PI + PI x 2/0МЕСА) * * (1. 0/3. 0) 

ЖЕТЕ (6,50) АКЕ 

WRITE( * ,50) АКЕ 

ҒОЕМАТС FERMI WAVEVECTOR: АКЕ = ',Е7. 3, 
' = 6. 283/Bohr*) 

CALL GAUSS(0.0,2.0,16,F,G2 

C=12.79 + ОМЕСА/АКЕ ж * 2 

К=с * Ç 

МКІТЕ<6,60) R 

ҰЕІТЕС» ,60) R 


60 


10 


FORMAT(’ RESISTIVITY ,"'8X,'R =',F7. 3, 

i ' Ohm. стп/10ж% += 6°) 

STOP 

END 

SUBROUTINE GAUSS(A,B,N,F,G) 

DIMENSION А1(16),Т(16) 

DATA А1/0. 02715246 ,0. 06225352,0. 09515851, 
/0. 12462897 ,0. 14959599,0. 16915652,0. 18260342 
/ ‚0. 18945061,0. 18045051,0.18260342 
/ ,0.18915652,0. 14959599,0. 12462897 
/ 0. 09515851,0. 06225353, 0. 02715246/ 

DATA T/—(0. 98940094, — 0. 94457502, — 0. 86563120, 
/ — 0. 7554044, — 0. 61787624, — 0. 45801678, 
/ — 0. 28160355, — 0. 09501251,0. 09501251, 
/0. 281680355.,0.45801678,0. 61787624,0. 75540441 
/ ,0. 86563120.0. 94457502,0. 98940094/ 

Н--0.5» (B—A) 

G =0.0 

DO 10 I=1.,N 

Х-0.5» ((B— A) + T(D +(A+B)) 

G=(-+ A1(1) x F(X) 

G=G * Н 

RETURN 

END 

FUNCTION F(X? 

F=X x z3x WN} w 2* АС(ХО/ЕРО(Х20% +2 

RETURN 

END 

FUNCTION A(X) 

COMMON PI,Z,RM OMEGA SIGMA, AKF 

О-Х»АКЕ 

D=SIGMA 

ЕТ=Рі + D=» »3/(ХОМЕСА * 6.0) 

ALPHA= (1.0+2.0 * ЕТ)» я 7/(1. 0—ЕТ) + +4 

ВЕТА--5,0%ЕТ» (1.4--0.5» ЕТ) + »2/(1.0-ЕТУ% % 4 

САМА =0. 5 * ЕТ * ALPHA 

FACT=4,0*PI* D * * 2/Q 

QD=Q * р 
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F1=SIN(QD)/QD—COS(QD) 
F2=2. + SIN(QD)— QD + COS(QD)+ Z. + (COS(QD)—1. 2/0 
Е3= 4. + SIN(QD)—QD + COS(QD)—12. * (2. + SIN(QD) 
/ —QD + COS(QD) +2. » (COS(QD)— 1. )/QD)/QD + +2 
S=FACT * (ALPHA *F1/QD+BETA * F2/QD * +2 
/ САМА + F3/QD + + 2) 
А. = 1. 0/61. 0+-5/0МЕСА) RETURN 
END 
FUNCTION W(X) 
COMMON PI, Z, RM OMEGA ,SIGMA,AKF 
Q= X * АКЕ 
QRM=Q + RM 
CS=COS(QRM) 
SN=SIN(QRM) 
ОЗЕО =Q » + 3* RM + OMEGA 
W= — 16. E0 š 3. 14159265 * 2 * (5М-(1.--СЗУ)/ОЕМО/ОЗЕО 
RETURN 
END 
FUNCTION ЕР5ОО 
COMMON Pl,Z,RM OMEGA ,SIGMA,AKF 
E=X/2. 0 
EP=1.0+((1.0—E = E)/(2.0 * ЕУ) 
/ x АТОССАВЅ( 1. 0+Е)/(1.0-Е))) 
ЕР5=1. 0+EP/(2, 0 * PI « АКЕ + E +E) 
RETURN 
END 


程序 6-4 液态 二 元 合金 电阻 率 的 计算 


一 ,程序 名 :LBARE 


二 ,功能 


输入 曙 势 参数 (有 效 价 电子 数目 和 离子 心 半径 ) . 硬 球 模型 参 
数 (原子 体积 和 硬 球 直径 ) 以 及 欲 计算 的 原子 浓度 克 围 (上 .下限 和 
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ЖК). 采用 Ziman-Faber 理论 计算 液态 二 元 合金 的 电阻 率 和 费 米 
能 级 处 的 状态 密度 . 


三 ,原理 


І. 根据 (6 一 56) 至 (6 一 58) 式 分 别 计算 对 于 某 一 浓度 的 液态 二 
元 合金 的 平均 有 效 价 电子 数 Z .产子 体积 Q Й А. 

2. 根据 电子 状态 密度 公式 (6 一 51), 并 浇 虚 两 种 自 旋 状态 , 计 
算 在 费 米 能 级 处 的 电子 状态 密度 рсе). 

3. 采用 硬 球 模型 ,按照 (2 一 136) 式 计算 偏 结构 因数 S. (9), 
Salg) A Sig). 

4. RARR 8 3, ЖЩ (6—68) АИ ЖЕ TR Y Wk N T 
ro)， 又 按照 (6 一 70) 式 计算 屏蔽 介 电 函 数 eCq), 从 (6 一 69) 式 得 
到 计 入 屏 柄 的 形状 因子 W). 

5. 按照 Ziman-Faber 公式 (6 一 61) 式 计算 液态 二 元 合金 的 电 
蛆 率 , 式 中 的 积分 采用 高 斯 求 积 法 计算 . 


四 ,流程 图 6 一 4 


五 ,变量 说 明 


# 为 输入 变量 ;十 为 输出 变量 

Zi ,ZI , Z, :分 别 是 A-B feH А,В 两 种 元 素 的 有 效 价 电子 数目 
2.2 和 平均 有 效 价 电子 数目 Z. 

RM1" ,RM2 ;分 别 是 A. B 两 种 元 素 的 离子 芯 半 和 多 参数 RMI 
和 RM2. 单位 :人 . 

OMEGA1' ,OMEGA2' .OMEGA- ;分 别 是 4, 互 两 种 元 素 的 产 
子 体 积 0.0, РЕЯ О.А О, ЖП GQ, 的 单位 
为 A’ ,输出 的 品 的 单位 为 Bohr’, 

SIGMA1' .SIGMA2 ;分 别 是 表示 A B 两 种 元 素 原 子 的 硬 球 直 
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【开始 ) 


两 组 元 的 模型 爵 势 参数 (有 效 价 电子 数 和 离子 ; 
е а-чу 

СИЕ B£ EI PK TU É LA 5 Sr 
的 深度 上 ,下 限 和 所 取 步 长 》 


Wk 

ЖЫ > 
УЕ 
S 
ж 
bs 
7 
ы 
ЕЗ 


【结束 


流程 图 6 一 4 
径 参 数 с, 和 cz. 单位 :人 ， 


АКЕ QX AEF RKR kr R q 和 qlr АУ, 
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| 是 2xBohr-1. 

C+ ,DC” ; A-B 合金 中 BB 元 素 的 原子 数 浓度 C ЖЮ ЖИЕ ЕТ ИЕ 
的 变化 间隔 АС. 

NC+ .NCMIN ` .NCMAX ' .NCSTEP " ;计算 时 所 取 合 金 不 同 配 
比 的 组 数 Nc, 以 及 计算 时 表征 B 元 素 的 原子 数 浓度 的 下 
限 Crins LE Cnnx 和 所 取 步 长 的 相应 整数 , С--ТАС,1 取 从 
NCMIN 到 NCMAX, 步 长 为 NCSTEP. 

511,5 22,S 12; 用 硬 球 模型 计算 的 偏 结构 因数 51,544 511. 

УНИ Т. 单位 :Ryd. 

EPS: PE Ék t НА e (q), 

ANEF" ; ЖЕ АМИН f iK S E Des). 

в” :电阻 率 . а {ү | ЖЕСІН ” Ж Ж. 


关子 程序 和 外 部 函数 说 明 


1. СА1)755(А,В,М,Е,С) 

采用 高 斯 求 积 法 计算 积分 的 子 程序 ,详细 说 明 参 见 程 序 6-3 
LQMRE. 

2.Е‹Х) 

TAARA SOORA R. х 是 自 变量 的 值 ,x==g/kr， 

3. W(Z,OMEGA AKF ,A RM) 

ARATE RA И Са) ЈУКА, АЖ ЈЕ 
离子 芯 内 为 线性 势 的 修正 的 Неіпе-АБагепкоу # Ë ИЖ 35. х = 
gq/ Ёк. 

4. ЕР5(АКЕ,Х) 

КЕНЕ ОН ЖЫМЫН ҒА Ж, ШЕ ЛЬ Ж 9 Hartree 介 电 函数 ， 
r=qg/Er. 

5. ӘШС,ОМЕСА.АКЕ,5ІСОМА1,516М4А2,Х,5,,,5%ф 5%) 

计算 偏 结 构 因 数 Sa Sut Sj 的 子 程序 ,z= 二 gq/kr. 

6.CII(A,BETA ,САМА ,ETA .QSIGMA) 
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类 似 于 程 夺 2-5 LBASTF 中 的 外 部 函数 ANNICIL ,是 计算 
ncu 640:) yi 一 1,2 的 外 部 函数 ,为 子 程序 SU 调用 ,A 是 SU 中 算出 
的 量 . 

7. CIJ (A, ALPHA , QSIGMA ‚C, ETA , ВЕТА12,САМАІ, 
GAMA12) 

类 似 于 程序 2-5 LBASTF FH RAR ANNC12 ,是 计算 
(nin) Ы (oa 的 外 部 永 数 ,为 子 程序 SIJ 调用 . ALPHA =е,/о,; 
А.ВЕТА12 和 GAMA12 是 SI RR H É E. 


七 .计算 实例 


计算 液态 二 元 合金 Na-K 在 100 亿 的 电导 率 , 合 金成 分 从 纯 
ЕЕ ВЕН 20 个 成 分 (Ne 一 20) ,相继 两 成 分 相差 0. 05 的 原子 浓 
ДУ. 所 用 腹 势 参数 和 硬 球 模型 参数 皆 同 于 程序 6-3 LQMRE 所 用 
的 参数 . 输入 参数 为 2-1,2; -1,Ем--1.28А ‚Км; 1. ТОА ЇЗ, 
--41.1А%,0,-- 79.1 Å’, e = 3.35 А ,в,-4.12А.АС--0.05, 
МСМІМ--0,МСМАХ--20Я1 NCSTEP =1. 计算 结果 示 于 图 6-8. 

本 程序 运行 时 ,采用 大 机 对 话 方式 , 按 屏 幕 提示 以 自由 格式 键 
入 输入 数据 . 运行 结果 除 在 屏幕 上 显示 外 ,还 生成 一 个 如 OUT 的 
输出 文件 贮存 输入 利 输出 数据 备查 . 此 外 还 自动 生成 一 个 输出 数 
EXIF ВЕРАТА, ЖЖ Б Н. 给 图 程序 参见 程序 7-2 
PLTCV2. x 

运行 指令 :LBARE OUT 


八 , 源 程序 ;LBARE + FOR 


PROGRAM LBARE 
COMMON/C1/ С.2,.АКЕ,71.22.ЕМІ,ЕМ2 
СОММОМ/С2/ ОМЕСА,ОМЕСА1,ОМЕСА2,5ІСМА1,51ОМА? 
EXTERNAL F 
OPEN(6,FILE=' *,STATUS="NEW') 
OPEN(10,FILE='LBRDATA',STATUS="NEW') 
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WRITE( * ,10) 

10 FORMAT(’ INPUT DATA: '/ 

/ 3X,'Z1,Z2,RM1.RM2 = \) 
ККАО(ж,») Z1,Z2,RM1,RM2 
WRITE( + ,20) 

20 ЕОЕМАТ(3Х,'ОМЕСАІ,ОМЕСА?,5ІСМА1,51СМА2 = "N) 
READ( * , * ) OMEGA1,OMEGA2?,SIGMAL,SIGMA2 
WRITE( * ,30) қ 

340  FORMAT(3X,'DC,NCMIN,NCMAX ,NCSTEP = *\) 
READ ,* ) DC, NCMIN,NCMAX ,NCSTEP 
WRITE(6,40) 

40 FORMAT(/,12X,"x +*+ +» INPUT DATA е * š *” 
WRITE(6,50) Z1,Z2,RM1,RM2,OMEGA1,OMEGA2, 

f SIGMA1,SIGMAZ 

50 FORMAT(/,5X.'Z1=",F6.3,8X,'Z2=”".F6.3,8KX, 

/ RMI=',F6.3,7X,'RM2=',F6. 3/’ OMEGA1= ', 
/ F7.3,3X,'OMEGA2==*,F7. 3,4X.'SIGMA1=', 
/ Е?.3.3Х,5ІОМА2--7,Е7.3) 
WRITE(6,60) ЫС.МСМІМ,.МСМАХ.МС5ТЕР 
60 FORMAT(SKX,'DC="?,F6.3,5X,'NCMIN= ,[2,16X, 
/ "МСМАХ = ',13,7Х,'МСТЕР:=',12) 
WRITE( x ,70) 
WRITEL6 ,70) 

70  FORMAT(/,12X,'+ к» OUTPUT DATA # ж є x!) 
RMI=RM]1/0. 529 | 
ЕМ2--ЕМ2/0. 529 
ОМЕСА1--ОМЕСА1/0, 529% «3 
ОМЕСА2=ОМЕСА?/0. 529 + +3 
SIGMA1=SIGMA1/0. 529 
SIGMA2=SIGMA2/0. 529 
NC=NCMAX— NCMIN+1 
WRITE(10,"(1X,152') МС 
WRITE( ж ,80) 

WRITE (6,80) 
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80 FORMAT(/,4X,'C’,6X ,2',8X,'R',6X, AKF', 
/ 4X ЮМЕСА"5Х,7ЧХЕЕУЭ 
DO 90 I=NCMIN ,NCMAX ,NCSTEP 
C=DC + FLOAT (1) 
Z={1.0—C) x Z1+Z2 * С 
ОМЕСА-(1.Е0-С) + ОМЕСА1-КС * ОМЕСА? 
АКЕ= 13.0 * 3. 14159265* +2 + 2/0МЕСА) ж ж(1.0/3. 0) 
АМЕҒ-3ж2/(2«АҚЕ» x 2 x OMEGA) 
CALL СА(186(0., 0,2.0,16,Е,Е) 
СҒАСТ--12.79жОМЕСА/АҚЕ» «2 
R=CFACT < R 
WRITE( * ,100) C,Z,R,AKF,OMEGA, ANEF 
WRITE(6,100) С,2,Е.АКЕ,ОМЕСА,АМЕҒ 
WRITE(10.,160) C,R 
80 CONTINUE 
100 FORMAT(1X,F5.2,1X,F7.3,1X,F9.3,1X,F6.3, 
/ F10.3,F7. 3) 
CLOSE (6) 
CLOSE (10) 
STOP 
END 
SUBROUTINE GAUSS(A,.B,N,F,G) 
DIMENSION A1(16),T (16) 
DATA А1/0. 02715246.0. 06225352,0. 04515851, 
/0.12452897,0. 14959599,0. 16915652,0. 18260342 


/ ,0.18945061,0. 18945061 ,0. 18260345 
/ ,0, 16915652,0, 14959509,0. 12462897 
/ „0. 09515851,0. 06225353.0. 02715246/ 
DATA Т/-0. 98940094, —0. 94457502,-- 0. 86563120, 
/ — 0. 7554044, —0. 61787624, — 0, 45801678, 
/ — 0, 28160355, — 0. 09501251,0. 09501251, 
/0.28160355.0. 45801678,0. 61787624 0. 75540441 
/ :0, 86553120,0. 84457502,0. 98940094/ 


H=9. 5# (B— А) 
400 
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С-«0.0 
DO 10 I=1,N 
X=0.5* ((B—A)=* T(D + (A—+B2) 
С=С +А1(0) + F(X) 
G=G*H 
RETURN 
END 
FUNCTION F(X) 
COMMON/C1/ С.,2,АКҒ,271.,22.ЕМІ.ЕМ2 
СОММОМ/С2/ ОМЕСА.ОМЕСА1,ОМЕСА2,51ІСМА1,51СМА2 
W1=W(Z1,OMEGA,AKF,X,RM1) 
W2=W(Z2,OMEGA ,АКЕ,Х.ЁМ2) 
E=EPS(AKF,X) 
W1=WL1/E 
W2=WZ/E 
CALL SI (C, OMEGA ,АКЕ,51СМА1,5ІСМА2, 


/ Х.,511,522,512) 


Fl=S11x* (1. 0—C)> < Wl* WI 
Е2=—=522 +С + W2 < W? 
F3=2.0* 512 ж Wl* W2 x SQRT(C ж (1. 0—C)) 
F=(Fl1+F2+F3)* X + +3 
RETURN 
END 
FUNCTION W(Z,OMEGA.AKF,X,RM) 
Q=X * АКЕ 
ФКМ =Q «ЕМ 
CS=COSCOQRM) 
SN=SIN(QRM) 
Q3RO=Q + + 3 x КМ + OMEGA 
у =— 16. 0 * 3. 14159265 + Z x (SN—(1. —CS)/QRM)2/Q3RO 
RETURN 
END 
FUNCTION ЕР5«<АКЕ,Х) 
Ез-Х/2.0 


401 


ЕР-ғ1.0--((1.0--Е «Е2/(92.0» E)) 


/ » АГОС(АВ5((1.0--Е)/(1.0--ЕУЭ 


/ 


/ 
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ЕР5--1.0-БЕР/(2.0 ж 3. 14159265 «АКЕ» E * Е» 
КЕТІЛЕМ 
END 
SUBROUTINE 51] (С,ОМЕСА ,АКЕ,51СМА1,51СМА? 
,Х,811,522,512) 
Р1==3. 14159265 
ALPHA=SIGMA1/SIGMAZ2 
ЕТАА--РІя ((1.0—C) x SIGMAL * +3 
+C * SGMA2 + + 3)/(6.0 *OMEGA) 
Y= X * АКЕ * SIGMAZ 
AL3= ALPHA * +3 
СА ==(1.0—С.) * AL3 
CD=CA+C 
ETA1=CA * ETAA/CD 
ЕТА2--С»ЕТАА/СЮр 
ALJ=(ETAL+AL3 «ЕТА2) * (1. 042. 0 * ETAA) 
АГ.К--1.0-ҒКЕТАА--ЕТАА»ЕТАА 
АТМ = (1 0--АТРНА? ж х? 
ALN=1.06+ETA1+ ALPHA ж (1;0+ЕТА2) 
Tl=ALK* (ЕТАІ+А1З * ETA2)—3. = ETA1* ЕТА? + ALM + ALN 
T2=ALK+ALJ—3.0* ALM * ЕТА2 к ('ALN+ETALI 
Т3= А3 * ALK+AL]—3. +» ETAL* ALM # (ALN+ETA2* ALPHA) 
ЕЗ--1.9/(1(1.0--ЕТАА>ж w 3) 
Ед-«ЕЗ/(1.0-ЕТАА) 
Т4--3.0ч Е4 * Т1 
А1--Т2% ЕЗ-ҒТ4 
А2--(Т3»ЕЗ--ТАУ/АІ.3 
ЕН--1.0-Е0.5«ЕТАА 
Е2--1,0/((1.9--ЕТАА)%х #2) 
С11=‹ЕН-+-1. 5 * ETAZ * (ALPHA— 1. 0)) «Е2 
G22= (EH+1.5 я ETAL + (1. 0/ALFHA— 1. 0)) ж E2 
G12=(EH +1.5 * (1. 0— ALPHA? «<«ЕТА1--ЕТА?) 


/ /(1.0+ ALPHA)) + E2 
АР2=‹1.0+АГРНА) * * 2 
ВЕТА1= — 6.0 * (ETA1 + С11 + G11 


/ --0.25«ЕТА2» АР2 * ALPHA + G12 612) 
ВЕТА2=— 6.0 * (ЕТА2 + G22 + G22 

/ +0. 25 + ETA1 * AP2 = G12 + G12/ AL3) 
BETA12= —3. 0 * ALPHA * (1. 0+ ALPHA) * 

/ (ETA1 * С11/(АТ.РНА * * 2)+ETA2 + G22) x G12 


САМА1--(ЕТА1 ж A1+—- AL3* ETAZ * А22% 0,5 
GAMA12=2,0 x GAMA1 * (1. 0— ALPHA)/ALPHA 
AY= ALPHA # Y 
C11=CIKA1,BETAL,GAMAL1L,ETAL, AY) 
GL=GAMAL/AL3 
C22 一 CIICA2,BETA2,GL ,ETA?2,Y)} 
С12--СІ-ХА1.АІІРНА,Ү,С,ЕТАА,ВЕТА12.САМА1,САМА?2) 
01=1. E0—C11 
D2= 1. E0— C22 
D12=-C12 x C12 
D=D1i + D2— Di2 
S11=D2/D 
S22=D1/D 
S12=C12/D 
RETURN 
END 
FUNCTION CIKA BETA GAMA., ETA. QSIGMA) 
Y2=QSIGMA * QSIGMA 
Y3= Ү2 * QSIGMA 
Y4= ҮЗ * QSIGMA 
S=SIN(QSIGMA) 
C=COS(QSIGMA?) 
P=A * (5 —QSIGMA * C)+ BETA + (Z. 0 x QSIGMA * 5 
/ —(Үү2—2.0)+С—2. 0 /QSIGMA 
Q=GAMA ж ((4.0% Y3— 24. 0 + ОЅІСМА) «85 
/ —‹(Ү4—12.0* Y2+24.0) + C+—24. 0)/Y3 
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СИ= — 24. 0 + ETA + (P+Q)/Y3 
RETURN 
END 
FUNCTION СІГА.АГРНА,ОЯТОМА,С,ЕТА, 
ВЕТА12,6АМА1,САМА 12) 
AP3=ALPHA ж * 3 
АІ =1.0-— ALPHA 
Үі= АРНА x ОЅІСМА 
Ү2=Ү1 * Ү] 
Y3=Y2* ү] 
Ү4= ҮЗ « Y] 
YL 一 0. 50» QSIGMA + АТ, 
Sl=SINCY1) 
Cl=COS(Y1) 
SL=SIN (CYL) 
CL=COSLYL) 
FF =S5SQRT(C * (1,0—С)) * AP3/(C+ (1, 0—C) # АРЗ) 
Рі--“ВЕТА12» (2.0 + Y1*C1+ (Y2—2. 0) +51) 
P2=GAMA12 * ((3. 0 + Y2—6. ) + C1 


/ +(Y3—6.0* Y1)*# 514-6. )/Y1 


P3=GAMA] * ((4.0 + Y3—24.0* Y]) СІ 


/ 4-СҮ4-12.0% Ү2-Ғ24, 0) + 51) /Ү2 


Т2=51. + {Р1+Р2++Р3›)/Ү4 

О1= ВЕТА 12 * (2. 0 * Yl x 51 — (2—2, 0) + С1— 2. 0) 
О2--САМАР2 ж ((3. 0 + Ү2— 6. 0) + 51 — (ҮЗ 6. 0» Ү1) * С1)/Ү1 
ОЗ = САМА # ((4, 0 * Ү3— 24. 0 * Ү1) «51 


/ -(Ү4--12,0х Y2+24. 0) С1--24.0)/Ү2 
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ІЗ-СІ,ж (921--024-032/Ү4 

ALY=2.0* ALPHA * ҮІ 

Кі-е-СІ,» ((81-Ү1»СІ/ҰҮ2-АГяЯСА/А,Ү)» 
R2=SL * ((СІ--Ү1%510/Ү2--АІ, + 51/АГҮ) 
Тағ- А» (R1+R2)/Y1 

СЏ= — 24. 0 + ETA *FF x (Т2-ЕТ3-ҒТ4) 
RETURN 


END 
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第 七 章 ” 计 算 机 绘 曲 线 、 等 值 线 和 
耽 密 度 图 以 及 过 程 的 荔 态 
ЕМ 7 


计算 机 既是 一 种 强 有 力 的 计算 工具 ,又 是 一 种 功能 广泛 的 实 
验 仪器 . 它 既 可 以 进行 快速 ,准确 的 运算 ,解决 复杂 的 计算 问题 ,又 
可 以 根据 事物 发 展 的 规律 ,按照 给 定 的 条 件 将 事物 发 展 .演变 的 过 
程 快速 ,准确 地 “实验 ”出 来 . 

计算 结果 往往 以 数据 形式 输出 ,但 在 许多 情况 下 ,以 图 形 输 出 
则 更 为 明了 . 简 箔 .例如 能 带 计 算 结 果 通 和 邦 绽 制 成 能 带 曲 线 图 , 
固体 电子 密度 分 布 的 计算 结果 通常 都 绘制 成 疏 密 度 图 和 等 值 线 
[z]. 本 章 给 出 了 固体 物理 研究 中 常用 的 数据 的 图 形 表示 方法 ,如 绘 
曲线 图 .等 值 线 图 和 朴 密 度 图 , 本 书 中 许多 计算 程序 算得 的 结果 所 
绘 出 的 图 形 ,都 是 用 这 些 绘图 程序 绘制 的 ， 

”在 计算 机 实验 ( 懂 拟 ) 等 工作 中 ,往往 要 将 物理 过 程 的 进展 情 
况 即 时 地 输出 ,本 章 提供 的 计算 机 图 形 显示 程序 是 为 此 设置 的 . 本 
书 中 研究 在 外 力作 用 下 固体 中 的 位 错 线 穿 越 无 规 障 得 点 的 阵列 的 
运动 过 程 ; 唱 体 中 刃 位 错 运 动 时 原子 组 态 变化 过 程 : 孤 子 的 运动 ， 
呼吸 子 的 运动 和 两 孤子 的 碰撞 过 程 ,都 是 通过 动态 图 形 显示 即时 
地 输出 在 屏幕 上 ,直观 地 看 到 位 错 线 如 何 运动 ,一 个 个 原子 如 何 挪 
ШЕККЕНДЕ 3 JF Е 5766. 

我 们 是 按 程 序 简单 ,明了 ,操作 方便 .通用 性 强 的 原则 编制 这 
些 绘图 程序 的 . 它们 可 用 于 固体 物理 学 科 的 研究 ,也 可 广泛 用 于 其 
它 学 科 的 研究 工作 . 
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57.1 计算 机 绘制 二 维 曲线 图 


在 许多 情况 下 ,以 曲线 图 的 形式 表示 计算 结果 则 跌 简 明 又 能 
突出 特点 . 计算 机 图 形 输出 方式 有 屏幕 显示 ,在 打印 机 或 绘图 仪 上 
绘制 等 . 

现在 已 发 展 了 一 些 二 维 .三 维 绘图 软件 包 . 美国 Golden 公司 
开发 的 GRAPHER 和 SURFER 就 是 常用 于 科技 资料 微机 绘图 的 
软件 包 . GRAPHER 是 二 维 高 级 绘图 软件 包 , 可 绘制 二 维 曲 线 图 . 
它 可 将 一 条 或 多 条 曲线 绘制 在 同一 幅 图 上 ;z 一 > 轴 林 以 是 线性 - 
”线性 .线性 -对 数 , 对 数 -线性 .对 数 - 对 数 方 式 的 任 一 种 :图 可 诈 转 
或 缩放 ; 轴 上 标 出 刻度 ;图 上 可 以 加 标题 和 文字 说 明 . SURFER 是 
三 维 高 级 绘图 软件 包 , 可 绘 等 值 线 图 ,三 维 曲 面 图 . 曲面 图 可 以 用 
正 交 投影 或 透射 投影 方式 ,可 以 倾斜 和 旋转 任意 角度 , 带 有 多 种 子 
符 库 ,可 以 对 图 形 加 以 标题 ,对 轴 和 图 作 详 细 标 志 ., 上 述 两 个 软件 
包 可 以 在 具有 了 硬盘 和 图 形 显 示人 (彩色 ,. 单 色 均 可 ) 的 TIBM 一 PC， 
ХТ.АТ 及 兼容 机 上 运行 .此 两 软件 包 的 功能 较 齐 全 , 花 一 定时 间 
裔 悉 其 原理 和 操作 后 ,可 绘 出 好 的 图 形 . 

我 们 编制 了 简单 的 画 二 维 曲 线 的 FORTRAN 程序 7-1 
РІЛТСУІ 和 BASIC 程序 7-2 PLTCV2. 使 用 它们 ,可 以 在 IBM 一 
PC 系列 微机 和 和 兼容 机 上 绘制 二 维 曲 线 图 , 可 将 一 条 或 多 条 则 线 绘 
HTA- ERE, TTE х,у ЕНИ Е, Е. 由 于 程序 
简短 ,在 硬盘 或 软盘 上 和 皆 可 运行 ,操作 简便 ,效率 高 . 通过 这 两 个 程 
序 , 可 以 了 解 用 FORTRAN 语言 和 BASIC 诸 言 给 图 的 原理 以 及 
基本 程序 结构 . 下 面 按 数据 文件 制备 .图 框 设 计 、 在 屏幕 上 绘图 和 
在 打印 机 上 输出 轿 形 几 个 方面 分 述 . 


一 ,数据 文件 的 制备 


由 于 绘 曲线 图 所 用 的 数据 很 多 ， 故 先 将 数据 制备 成 文件 ， 作 
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为 绘图 程序 的 输入 文件 . 文件 中 的 数据 应 按 自 变 量 玉 从 小 到 大 的 
顺序 排列 . 对 于 FORTRAN 程序 ?-1 PLTCV1， 如 果 需 要， 程序 
用 插值 法 将 其 生成 自 变 量 为 等 步 长 的 较 密 的 数据 ， 步 长 取 屏 幕 上 
横向 相 邻 两 光 点 之 间 的 距离 ， 故 所 绘图 形 的 质量 《光滑 性 ) 取决 
于 屏幕 的 分 辨 率 , 由 于 BASIC 程序 是 逐 句 编译 积 执 行 的 , 这 使 运 
算 费 时 很 长 , 故 对 于 BASIC 程序 7-2 PLTCV2 只 能 将 输入 文件 中 
的 数据 绘 副 ， 如 要 求 进行 插值 补 点 ， 则 需 调 用 专 作 插值 补 点 的 
FORTRAN 程序 7-3 PRCDAT， 将 经 PRCDAT 处 理 后 输出 的 文 
件 作 为 PLTCV2 的 输入 数据 文件 即 可 . 

PLTCV1 ЖІ РІТСУ2 的 输入 文件 中 数据 排列 顺序 崩 是 NX, 
(X(J),(Y(I,J),;1=1,NCV),J=1,NX),NX E H 3 E X MT 
数 ,NCV 是 对 应 于 每 一 个 自 变量 X(J) 所 给 出 的 函数 值 Y 的 个 数 ， 
也 就 是 可 绘 此 线 的 条 数 . 


一 ,确定 图 框 的 边 罕 和 标尺 


曲线 给 在 由 织 惯 坐标 轴 围 成 的 并 附 有 标尺 的 图 框 内 . 为 了 确 
定 图 框 的 边界 ,程序 在 读 取 输入 数据 文件 后 , 即 查 找 自 变量 天 É 
六 数值 了 的 最 小 ,最 大 值 并 显示 在 屏幕 上 ,用 户 可 参考 它们 选取 
合适 的 值 作为 柑 轴 左右 边界 和 纵 轴 的 下 .上 边界 .两 轴 上 标尺 刻度 
的 位 置 决 定 于 输入 的 标尺 将 模 轴 和 纵 轴 等 分 的 段 数 IXSCL 和 和 
ТҮЗІ ,它们 管 为 整数 , 取 值 时 应 注意 使 两 轴 上 标尺 刻度 的 步 长 
DXSTP = (XMAX — XMIN )/IXSCL 和 DYSTP = (ҮМАХ — 
YMIN)/IYSTEP 为 整数 或 只 有 一 、 两 位 的 简单 小 数 ， 


三 ,在 屏 薪 上 给 图 


绘 国 前 ,应 将 屏幕 的 显示 模式 转换 到 图 形 显 示 模 式 . 在 
FORTRAN 程 序 7-1 РІТСУІ 中 是 调用 汇编 子 程序 SCREEN 来 
实现 的 ;而 在 BASIC 程序 7-2 PLTCV2 中 ,是 用 SCREEN 命令 完 
成 的 ,为 了 在 屏幕 上 显示 和 消除 光 点 ,PLTCYV1 调用 了 相应 的 子 
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程序 PLOT, fi PLTCV2 采用 曾 点 命令 PSET ,消除 点 命令 PRE- 
ЅЕТ, #1 + LINE, 还 有 丁 圆 或 弧 的 命令 CIRCLE. 本 书 中 ， 
FORTRAN 程序 DPPLT, DSLMOV, EDGDSL, PLTCV1 和 
SOLITN F # EHTA RH HEKLA T F PF, # F JE 7-7 
SOLITN 的 子 程序 说 明 中 ,对 这 些 汇 编 子 程序 作 了 详细 说 骨 , 程 
序 7-2 PLTCV2 中 采用 的 BASIC 作 图 命令 , 放 在 该 程序 说 明 中 详 
Ж. 


БЕН АН ДАН 


运行 BASIC 程序 7-2 РІЛТСУОДЕНЕ ЕВНИЕВ Н Ж [и] 
时 按 下 键盘 上 的 Shift 键 和 Prtsc 键 , 就 可 在 打印 机 上 答 出 . 此 项 
工作 需要 得 到 GRAPHICS。COM 文件 的 支持 , 故 在 进入 BASIC 
状态 ( 即 键入 BASICA 命令 ) 之 前 ,应 先 键入 GRAPHICS 命令 .如 
果 未 预先 键入 GRAPHICS 命令 , 则 显示 在 屏 上 的 图 形 不 能 在 打 
ИЛТЕП Ж. 


程序 7-1 给 二 维 曲 线 的 FORTRAN 程序 
一 .程序 名 :PLTCV1 


二 ,功能 


输入 一 组 自 变 量 <, 和 相应 的 函数 信 yz 一 LN 一 |， 
NX) ,在 屏幕 上 绘 出 相应 的 NCV Ж fi #% (NCV<çN). 如 果 要 求 所 
绘 曲 线 是 光滑 连续 的 ,程序 将 调用 插值 子 程序 ,生成 自 变量 为 等 步 
长 的 数据 组 ,进行 插值 补 点 后 骨 绽 曲线 


三 原理 


1, 调用 内 部 函数 AMINI 和 AMAX1 确定 自 变 景 和 函数 值 揭 
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最 小 .最 大 值 ,并 显示 在 屏幕 上 . 

2. 输入 和 X 和 Y 输 的 放大 倍数 后 ,大 上 显示 上 述 最 小 、 аха 
乘 上 放大 倍数 后 的 值 , 据 此 选取 坐标 图 框 的 横 轴 的 左 ,右边 界 和 纵 
轴 的 上 ,下 边界 ,以 及 图 给 的 横 负 和 纵 轴 被 标尺 刻度 等 分 的 段 数 . 

3. 调用 SCREEN ,转换 到 屏幕 的 图 形 显示 模 式 . 调用 PLOT, 
在 屏幕 上 绘图 框 \ 标 尺 刻度 以 及 曲线 ， 

4. 以 上 是 以 输入 的 原始 数据 直接 画图 , 如 果 原 始 数据 点 过 少 ， 
且 不 均匀 ,在 部 分 点 之 加 同 隔 较 大 , 则 绘 出 的 曲线 是 由 一 些 分 离 的 
AAR. 为 了 绘 出 连续 的 曲线 ,可 要 求 作 插 值 补 点 ,此 时 程序 自动 
地 将 自 变 数 取 为 从 IXMIN 到 IXMAX, 步 长 为 1 的 数组 ,用 插值 
法 计算 相应 各 点 的 函数 值 ,再 以 此 新 自 变 量 和 函数 值 数 组 绘图 ， 


五 .变量 说明 


`* 为 输入 变量 ; w * 为 从 输入 文件 迁 了 到 的 输入 变量 ;十 为 输出 

变量 ， | | 

МСУ *,М:2} Ж 2 КЕНЕНІ ИННА А СЕЕ ЕНЕ Н Ву 
ЖНЖ. Ш NCV<N, ШАА X Fri Br NCV Ж 
曲线 , 

NX WA XFAR X 数组 中 数据 的 个 数 . 

X(J)**,Y(1,])**:I=1.N,.J=1,NX. 分 别 为 输入 文件 中 的 自 变 
E X £H £t ІА КЕН. 要 求 自 变量 数组 的 数据 按 从 小 
到 大 的 顺序 排列 ， 

ІХАМР"ЛУАМР :分 别 为 和 和 Y 值 的 放大 倍数 ,一 般 情 况 下 ， 
я й ІХАМР--100.ТҮАМР--109 或 150. 

XMIN+- ,XMAX- ,YMIN-,YMAX*- :在 屏幕 上 站 出 现 三 次 ,第 一 
次 为 输入 的 自 变 量 和 函数 值 的 最 小 值 和 最 大 便 ; 第 二 
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ЕЗІ 
f À K 3: El И ЕН 6 A НЕ X Tt k k Ë 3 Et 5 5 k h Ë 


注入 图 框 模 轴 的 左右 边界 和 织 输 的 下 、 上 边界 ， 显 示 图 框 边界 的 实际 信 


回答 是 否 要 求 插 值 的 提问 


转换 到 屏 帮 的 图 形 显示 模 式 


给 坐标 图 做 和 标尺 刻度 


计算 步 长 .确定 等 步 长 的 ау РУ ЖЕТТИ ШЛУ) ВА 
і АЕ Н У РЕРЕТРАТА 


四 复 到 屏幕 的 字母 ,数字 显示 模式 


结束 


流程 图 7 一 1 


”次 为 乘 以 放大 倍数 后 的 值 ;第 三 次 是 所 绘 坐 标 图 框 的 
横 轴 的 左 , 右 边界 和 维 轴 的 下 .上 边界 的 实际 值 ， 
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ІХМІМ” ІХМАХ"ТҮМІМ”,ТҰМАХ" ;选取 的 坐标 框图 横 输 的 
左 、. 右 边界 和 织 轴 的 下 .上 边界 . 一 般 是 将 屏 上 显示 的 
乘 以 放大 倍数 后 的 XMIN ,-. , YMAX 值 取 简单 整数 即 
得 . 岂 时 也 应 参考 屏 上 显示 的 自 变量 和 卫 数 人 的 最 小 、 
最 大 值 ,使 进 界 处 的 实际 值 为 简单 数 . 为 简便 起 见 ; 常 
将 ХМІМ,ҮМІМ Ж. 

ІХӨСІ.“,ТҮ8СІ,7; 20 ta К. ЖЕНЕ ТАУ BA a u SA RE Sy 2 83 Б SZ. 
其 选取 原则 是 使 步 长 DXSTP 与 DYSTEP 为 整数 或 只 
有 一 ,两 位 的 简单 小 数 ， 

DXSTP+ ,DYSTP7 ;分别 是 框 介 的 模 轴 和 纵 轴 上 标尺 刻度 的 步 
K. DXSTP = (XMAX — IXMIN )/IXSCL , DYSTP = 
(ТҮМАХ 一 IYMIN )/1YSCL, 此 处 IXMIN …… IY- 
МАХ 为 屏幕 上 第 三 次 显示 的 图 框 边界 的 实际 值 . 

YN .插值 控制 参数 . 字符 型 变量 . YN =Y, ARME thA YNZ 
Y ,不 要 求 插 人 得 补 点 , 绘 出 原始 曲线 . 

DX,NXP- ,分 别 为 作 插 值 时 取 的 自 变量 X 的 步 长 和 自 变 量 数组 
中 数据 的 个 数 ， 

XPD ,YP(1,J) 7 :1=1.NCV,J=,NXP. 分 别 为 作 插 值 时 生成 
的 等 步 长 的 自 变量 数值 和 经 播 值 得 到 的 相应 的 苑 数值 
数组 . 

六 、 子 程序 说 明 

1. LGINT(N ,MM ,X,Y,A ,2Z) 

拉 格 明日 播 值 子 程序 . 详细 说 明 参 见 程 序 2-3 RDF. 
2, SCREEN (IC) ,PLOT (IX ,IY ,IC) 


分 别 是 选择 屏幕 显示 模式 和 在 屏幕 上 历 点 的 汇编 子 程序 . 详 
细 说 明 参 见 程序 7-7 SOLITN. 
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七 .计算 实例 


以 绘 液 态 钠 在 五 个 不 加 诠 度 的 结 档 和 估 数 曲线 (a 一 g 和 图) 为 例 . 
可 取 运 行程 序 2-4 LQMSTF 得 到 的 输出 数据 文件 LQDATA (Е 
本 绘图 程序 的 输入 文件 . 此 文件 的 数据 排列 顺序 是 МО, ОС. 
(АПЯ,О-Еа-10,1-<1,50,1--1,М00,М0 ВАТЕ Q (ñ Ë) + 
数 . 因为 函数 aa 的 值 在 0 至 2.7 之 向 ,对 于 每 一 个 温度 ,a 一 9 曲线 
在 1 附近 振荡 . 为 了 使 五 条 曲线 不 致 混杂 ,数据 文件 LQDATA 中 
图 数值 a(T,q) 已 按 温 度 从 高 于 低 的 顺序 依次 上 移 了 4ha==1 ,使 高 
温 昌 线 在 下 面 ,低温 曲线 在 上 面 ,分 离开 来 , 其 它 参 量 可 取 N= 5, 
XAMP=100,YAMP=150,IXMIN=0,IXMAX=600,IYMIN = 
0.ТҮМАХ =900,1Х5СІ. =12,IYSCL=12, YN=Y. 程序 运行 后 ， 
在 屏幕 上 以 不 同 凑 色 绘 出 五 个 不 同 温度 的 液态 钠 的 结构 因数 曲线 
(R 2-12). 对 于 第 工 条 曲线 ,1 二 1,4,7 时 为 绿色 ,1 二 2,5,8 时 为 
红色 ,1 一 3,6,9 时 为 白色 . ДА ҮМ ДЕМ 时 , 则 不 作 揪 值 补 点 ， 
НЕЕ LQDATA 中 的 数据 绘 曲线 (原始 曲线 ) ,由 于 没有 插值 补 
点 ,所 得 曲线 由 不 连续 的 点 组 成 ， 

本 程序 只 从 输入 文件 (如 本 例 中 的 LQDATA) i À #2 BH Z<, 
的 自 变 量 和 函数 值 外 ， 其 它 输 入 参量 任用 人 机 对 话 方式 按 斌 项 所 
示 以 自由 格式 键入 ， 

程序 运行 后 ,还 生成 一 个 如 OUT 的 输出 文件 备查 , 它 记 录 了 
输入 数据 中 自 变 量 与 函数 值 的 最 小 、 最 大 值 ， 坐 标 图 低 的 横 轴 的 
ж. ЛЯНЕ Р. Е, ИА НД ЯН ЕРМЕ 
步 长 ， 如 要 求 揪 值 补 点 ， 程 序 还 目 动 生成 一 个 输 内 数据 文件 
PLTDATA, Е НЕДЕ Е: МХР. (ХР (ЈУ, (ҮРС, 7Ј).1=1. 
NVC).]=1,NXP), ЕЕ 7-2 PLTCV2 直接 绘图 和 经 打印 机 
输出 ， 

运行 指令 ,PLTCV1 LQDATA OUT 
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LQDATA 以 给 五 个 演 度 的 液态 Na 的 结构 因数 曲线 为 例 ) 
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36 
250 
,80 

1.10 
1. 20 
1.40 
1.59 
1. 69 
1. 65 
1.790 
1. 75 
1.80 
1. 85 
1. 90 
1.95 
2. 00 
2. 95 
2. 19 
2. 15 
2. 20 
2. 20 
2. 30 
2. 35 
2. 45 
2. 60 
2, 65 
2.70 
2,80 
2. 65 


‚028 
‚040 
‚069 
‚088 
‚159 
‚230 
‚352 
‚44? 
‚577 
‚758 
1. 010 
1. 351 
1.781 
2.239 
2.579 
2. 651 
2. 456 
2.128 
1. 791 
1. 504 
1. 276 
1.100 

‚865 

. 684 

‚652 

‚625 

‚606 
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, 034 
, 048 
‚ 083 
. 105 
‚ 190 
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‚415 


522 


. 666 


860 
117 
444 
819 
172 
393 
406 
236 
875 
795 
466 
269 
113 
695 
720 


. 688 
‚ 665 
‚641 
. 839 


2. 941 
2.0957 
2. 099 
2. 126 
2. 226 
2, 322 
2.481 
2.598 
2.752 
2. 952 
3. 203 
3. 500 
3. 811 
4. 074 
4. 216 
4. 201 
4. 058 
3. 850 
3. 631 
3. 432 
3. 262 
3. 123 
2. 923 
2. 755 
2.723 
2. 699 
2. 674 
2. 671 


3. 052 
3. 974 
3. 126 
3.160 
3. 281 
3. 395 
3. 575 
3. 702 
3. 861 
4. 054 
4. 280 
4.523 
4. 751 
4.921 
4. 996 
4. 968 
4. 861 
4. 709 
4. 5848 
4. 390 
4. 252 
4. 135 
3. 356 
3. 890 
3.769 
3. 745 
3,718 
3, 714 


4. 061 
4. 086 
4.146 
4, 184 
4. 319 
4. 442 
4, 632 
4,761 
4.917 
5. 100 
о. 304 
5. 512 
5. 697 
5. 828 
5.878 
5.850 
5. 789: 
. 636 
‚499 
366 
246 
141 
978 
827 
796 


2. 90 „610 1. 643 
2. 85 . 620 1. 652 
3.00 . 636 1. 666 
3. 10 . 685 1.712 
3. 20 ‚ 158 . 778 
3. 40 , 974 1. 971 
3. 60 1. 224 2.189 
3. 70 1. 309 2. 264 
3. 80 1. 334 2,299 
3. 90 1, 299 2. 269 
4, 00 1. 221 2, 208 
4.10 1.127 2.129 
4.20 1. 036 2.048 
4. 30 . 958 1, 977 
4. 50 . 858 1. 881 
4. 60 . 835 1. 856 
4. 70 . 829 1. 847 
4. 80 ‚ 837 1. 852 
4, 90 . 860 1. 869 
5, 00 , 895 1. 899 
5, 20 , 991 1. 981 
5. 40 1. 090 2, 069 
5. 60 1. 139 2.120 
5. 80 1. 113 2.107 
6. 00 1. 040 2.047 
6. 20 . 965 1. 979 
6. 40 . 918 1. 933 
6. 60 . 909 1.918 
A. ЕБ РІТСУ1. FOR 


2. 674 
2. 682 
2. 695 
2. 735 
2. 796 
2. 967 
3.158 
3. 225 
3. 254 
3. 241 


3.194 


3.129 
3. 058 
2.994 
2. 801 
2. 876 
2. 864 
2. 866 
2. 879 
2. 802 


2.973 


3. 052 
3. 102 
3, 099 
3. 052 
2. 992 
2. 946 
2. 928 


PROGRAM PLTCV1 


Елі 


DIMENSION IY(9),YY(9),X(600), Y(9,600); 


/ ХР<600), ҮР(8,600),Ү1(6804) 


= P £ > F P > w е p u w g 


ә po P > o рор G ы бы gu gs pa go 
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. 720 


731 
765 


. 816 


960 
119 
178 


208 


205 
175 
126 
069 
014 
928 
802 
887 
884 
892 
808 
964 
030 
079 
088 


. 057 
. 007 
. 964 
. 941 


орфо m союш бт > > вы & > = б л (л (л өл о m бл > = > = = 


4.739 


. 743 
752 
.782 
828 
956 
. 098 
152 
182 
185 
163 
123 
074 
. 024 
943 
917 
901 
895 
900 
913 
, 858 
018 
955 
079 
057 
015 
. 974 
. 950 
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10 


20 


30 


40 


30 


60 


СНАКАСТЕК ҮМ 

ОРЕМС,ЕП,Е-" ',STATUS='0LD'} 
ОРЕМФЕПЕ-” ,ЗТАТ/85--"МЕУУ?) 
ОРЕМООЭҒІГЕ --?РІ,ТОрАТА”,8ТАТ05-”МЕУУ?) 
WRITE( ж,” (” INPUT THE NUMBER ОЕ CURVES,” 


/ ‚”” NCV = ”*\,)') 
КЕАП( * , ж) NCY 
J=0 


/ 


/ 
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READ(1, » ,END=30) XX, (YY(1),1=1,NCV) 

jl 

Х‹+})=ХХх 

DO 20 I=1,NCV 

GO TO 10 

CONTINUE 

МХ--) 

XMIN= X(1) 

KMAX=—X(NX) 

ҮМІҸ=Ү(1,1} 

YMAX=Y(1,1) 

DO 40 і--і.МСУ 

IX) 40 }=1.МХ 

YMIN=AMINi(YMIN,Y(1,J)) 

YMAX=AMAXLNYMAX,Y(1,J)) 

WRITE. *,50› ХМІМ,ХМАХ.ҮМІМ,ҰМАХ 

Ұ/КІТЕ(6,50) ХМІМ,ЬХМАХ.ҮМІМ,ҰМАХ 

FORMAT С? VALUES OF INPUT БАТА; ХМІМ,ХМАХ' 
, «ҮМІМ,ҰМАХ = ',4(F6.2,1,',1X)) 

WRITE( * C INPUT THE AMPLIFICATIONS FOR” 
"X&Y: ІХАМРМҮАМР = 1’) 

READ(* ,* )ІХАМР,ТҮАМР 

XMIN =FLOAT(IXAMP? + ХМІМ 

XMAX=FLOAT(IXAMP) + XMAX 

ҮМІМ=ЕГОАТЧҮУАМР) * YMIN 

YMAX=FLOAT(IYAMP) + YMAX 

WRITE # ,60) ХМІЧ,ХМАХ,ҮМІМ.ҮМАХ 

FORMAT AMPLIFICATIVE VALUES: XMIN ,XMAX ,* 


ТО 


80 


90 


100 


/ «ТҮМІМ,ҰМАХ = °,Е5.1,*,',2(Е6.1,','),Е?. 17 


WRITECA ,*(” INPUT VALUES, ТХМІМ,ІХМАХ,”, 


/"ТҮМІМ,ТҮМАХ = *”N2°) 


КЕАР( +, + ) IXMIN,IXMAX,IYMIN ,IYMAX 
СО ТО 80 
WRITE (»,(" (XMAX—IXMIN)/IXSCL ОК (TYMAX™ 


/ ,7-ТҮМІМҘЛҮССІ. IS МОТ INTEGER J "979 


WRITEC* , (С”ІМРТ)УТ SCALES OF X & Y AXIS; ” 


/ , "IXSCL,IYSCL = WY) 


READ * ,* ) ІХС, УСІ. 
DXSTP=FLOAT(IXMAX—IXMIN)/FLOAT(IXSCL) 
DYSTP=FLOAT(IYMAX—IYMIN)/FLOAT(IYSCL) 
IDX=(IXMAX—IXMIN)/IXSCL 
IDY= (IYMAX —IYMIN)/IYSCL 
IF (FLOAT (IDX). МЕ, DXSTP. OR. 

FLOAT (DY). МЕ. DYSTP) GO ТО 79 
ХМІМ =FLOAT (IXMIN>/FLOA T(IXAMF}) 
ХМАХ-ҒІОАТОХМАХО/ҒІОАТСХАМР)» 
YMIN=FLOAT(IYMIN)/FLOAT(IYAMP) 
ҰМАХ--ЕІ.ОАТСҮМАХО/ҒІОАТОҮАМР) 
WRITE( + ,90) XMIN ,XMAX, YMIN, YMAX 
WRITE:t(6.90) 其 MIN ,XMAX ,YMIN, YMAX 
FORMAT С THE REAL VALUES: XMIN ,XMAX, Y MIN, 


/ ,"ҰМАХ = ',4(Е6.2,',',1Х)) 


DXSTP=DXSTP/FLOAT(IXAMP) 
DYSTP=DYSTP/FLOAT(IYAMP) 

WRITEC* ,100) DXSTP,DYSTP 

УУКІТЕ(6,1003 DXSTP,DYSTP 

FORMAT{’ THE LENGTHS PER INTERVAL IN X & Y' 


/ é AXIS: DXSTP ,DYSTP = "Е6,2,,%1Х,Е6.2) 


WRITE( +,’ ”** DO THE DATA NEED TO ”, 
ЭІМТЕКРОЦ,АТЕ 7 (Y/N) "909% 

КЕЛІК «,ЧАО0ОЭ YN 

ІЕСҮМ. EQ. "Ұ?. ОЕ. YN. EQ. у IYN= 1 

PAUSE’ '” 

IXMIN=100+IXAMP + IXMIN/ (IDX * IXSCL) 

IXMAX=100+ IXAMP + IXMAX/ (IDX * IX5CL) 

ТҮМІМ -180-ІТҮАМР»ТҮМІМ/СРҮ * ТҮЗСІ.) 
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IYMAX=180—IYAMP + IYMAX/(IDY x ТҮЗСІ,) 
CALL ЭСКЕЕМ(4) 
DO 110 I=IXMIN ,IXMAX 
CALL РІОТА,ТҮМАХ,3) 
110 CALL PLOT(LIYMIN,3) 
DO 120 І-“ТҮМАХ.ТҮМІМ 
CALL PLOT(IXMIN,I, 3) 
129 CALL PLOT(IXMAX,1,3) 
DO 130 1=1,1Х5С1, 
DO 130 |--1,5 
CALL PLOT(IXMIN+I =+ IXAMP/IXSCL ,IYMAX+],3) 
130 CALL PLOT(IXMIN+I +» XAMP/IXSCL,IYMIN —J,3) 
DO 140 I=1.IYSCL 
ГО 140 1--1,5 
CALL PLOT(IXMIN+J,[YMAX+I*IYAMP/IYSCL ,3) 
140 CALL PLOT(IXMAX—J,IYMIN—I*IYAMP/IYSCL,3) 
IF(IYN. NE. 1) GO TO 219 
NX1=INT(FLOAT(IXAMP) ж (X(NX)—X(1))2) 
DX=¿(X(NX)—X(1))/FLOAT(NX:i) 
DQ 150 J=1,NX1 
XPO)=X(1)+DX *FLOAT(J—1) 
IF(XP (J). LE.XMAX) GO TO 150 
NXP=] 
GO ТО 160 
150 CONTINUE 
160 CONTINUE 
DO 180 J=1,NXP 
IK=100+INT(FLOAT(IXAMP) «ХРАР/ОХМАХ--ХМІМУО 
DO 180 I=1,NCV 
DO 170 L=1,NX 
170 YIKIL)= YG,L) 
CALL LGINT(NX,4,X,Y1,XP(J),YP6(I,])) 
1Y (D =180—INT(FLOAT(IYAMP) #ҮР(Ї,])/ 
/ (ҮМАХ – YMIN)) 
ІС, =1—1/3 * 3 
IF (L EQ. 3. OR. L EQ. 6. OR. L EQ. 9) ІС =3 
180 CALL PLOT(IX,IY(1},1C) 
WRITE(10,'(1X,15)') NXP 
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190 
209 


210 


220 
230 
240 


10 
20 
30 


DO 190 J=1,NXP 
WRITE(10,2007 ХР(]).СҮР(1.]),1=1,МС\/) 
ҒОКМАТ(1Х,Е7. 3.9Ғ8. 3) 
СО ТО 240 
DO 230 1-1.МХ 
IF(X(]). LE. ХМІМ. ОБ. ХО). GT. XMAX) СО ТО 230 
IX= 100+INT(FLOAT(IXAMP) + X(D/(XMAX—XMIN?) 
DO 220 I= L, NC V 
IY(I)=180—INT(FLOAT(IYAMP) + ҮЙ,р/(ҮМАХ--ҮМІМ)) 
ІС ==1— 1/3 є 3 
IF (I. EQ. 3. ОВ. L EQ. 6.OR, L EQ. g) IC 一 3 
CALL PLOTUX,IY () ,IC) 
CONTINUE 
PAUSE’ " 
CLOSE(6) 
CLOSE(10) 
CALL SCREEN(2) 
STOP 
END 
SUBROUTINE LGINT(N,MM ,X,Y ,XL, YI) 
DIMENSION X(N), Y(N) 
M=MM--MOD(MM ,2) 
IF (M. GE. N) M=N—MODICN ,2) 
М1=М/2+2 
NL=1 
IF(XKLI.LT.X(M1—1)) GO ТО 30 
М2-М-М/2 
МІ.-М-М--1 | 
IF (ХІ. 6Е.Х(М292 СО TO 30 
DO 101,-М1,М2 
ЕХЕ. ІТ. X (L)). AND. (XL GE. Х(1,—1))) СОТО 20 
NL=L—M/2 
NH=NL+M-1 
YI 一 0. 
DO 50 І--МІ,,МН 
ҮП =1. 
Ү12=1. 
ГО 40 І--МІ,,МН 
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IF (J. EQ. D GO ТӨ 40 
YI1=YI1 + (ХІ-ХС))» 
YI2= YI? * (XX) —X(J)) 
40 CONTINUE 
50 YI 一 YI 十 YCI) «ҮП /Ү12 
RETURN 
END 


十 ,注意 
如 要 求 作 插 值 , 则 在 输入 的 数据 文件 中 ,函数 值 y 随 日 变 量 的 
变化 不 应 有 很 大 的 陡 变 ,否则 插值 CLGINT) 工 作 难 以 进行 . 解决 


方法 是 删 去 这 种 奇异 点 ,或 者 是 在 函数 值 变 化 很 大 处 , 插 伞 一 些 
点 ,使 相 邻 两 点 的 函数 值 变化 减 小 . 


程序 7-2 绘 二 维 曲 线 和 的 BASIC 程序 


一 ,程序 名 ;PLTCV2 


二 ,功能 


输入 一 组 自 变量 >, 以 及 相应 的 函数 值 у/Сж)),(із-1.МСУ.; 
二 1,NX), 在 屏幕 上 绘 出 此 NCV 条 曲线 ,并 在 打印 机 上 将 屏幕 上 
БІНЕ FT ED Hi th. 


= . R TE 


1. 从 输入 数据 文件 读 取 自 变 量 数 组 和 函数 值 数 组 后 ,得 找 目 
变量 和 函数 值 的 最 小 .最 大 值 ,并 在 异 幕 上 显示 出 来 . 
2. 参考 上 述 数值 ,选取 并 输入 坐标 图 框 的 模 轴 的 左 、 右 边界 种 
纵 轴 的 下 .上 边界 ,以 及 横 轴 和 纵 轴 被 标尺 刻度 等 分 的 段 数 . 
3. 用 SCREEN 俞 令 转 换 到 屏幕 的 高 分 辩 显 示 模 式 . 
420 


4. H LINE 合 令 在 屏 帮 上 绘 坐标 图 和 杠 , 标 斥 刻 度 和 曲线 . 
5. 处 用 微机 的 异 莫 图 形 打 印 指 令 , 和 将 屏幕 上 的 图 形 用 打印 机 
输出 . 


五 、 变 时 说 明 


* 为 输入 变量 ; w * 为 从 输入 文件 读 取 的 输入 变量 ;十 为 输出 

Ж. 

NCV” НЫ. 与 输入 文件 中 提供 的 数据 可 画 曲 线 的 条 
ЖОЛУ АН [8]. | 

NX” :输入 文件 中 自 变 量 数 组 中 数据 的 个 数 . 

XO "YD ` ;1=1,NCV,J=1,NX, 输入 文件 中 的 自 变 数 数 
НЕН. 要 求 自 变量 数组 的 数据 按 从 小 到 大 的 
顺序 排列 . 

ХМІМ-°,ХМАХ+'",ҮМІМ"*,ҮМАХ' МЕТЕ БЕ 
入 文件 中 自 变 量 和 函数 值 的 最 小 ,最 大 值 . 随即 要 求 输 
AHE ГК АН. НОЛА УТЕ. Б 
值 . 后 者 应 取 整 数 或 只 有 一 ,两 位 的 简单 小 数 . 

IXSCL" ,IYSCL* ;图 眶 的 模 铀 和 纵 轴 被 标尺 刻度 等 分 的 段 数 , 为 
整数 ， 

DXSTP* ,DYSTP7 АЙЛЫ ЕЛІНЕ. 取 IXSCL 和 
IYSCL 时 ,应 注意 使 DXSTP 和 DYSTP 的 值 为 整 歼 或 
只 有 一 .两 位 的 简单 小 数 . 


z<. BASIC 的 使 用 和 作 图 命令 


1. КТЕ IBM-PC 机 上 使 用 BASIC 语音 ,首先 必须 在 DOS Ж 
统 下 启用 BASIC + СОМ 和 BASICA + COM 文件 ,进入 高 级 
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键 人 输入 数据 文件 各 
输入 所 画 曲 线 的 条 数 
从 输入 文件 读 取 自 变量 数组 中 数据 个 数 ， 以 及 自 变 重 和 消 数 值 


查找 并 显示 自 变量 的 最 小 .最 大 什 


— тт” 
` 


ЕП 


输入 图 框 惯 轴 的 左 . 右 边界 以 及 标尺 刻度 将 模 轴 等 分 的 段 数 


查找 并 显示 函数 值 的 最 小 .最 大 值 
输入 图 框 纵 轴 的 下 .上 边界 以 及 标尺 刻度 将 纵 轴 等 分 的 段 数 


转换 到 屏幕 的 高 分 辩 显 示 异 式 


在 诸 莫 上 男 坐 标 图 框 ， 曲 线 ， 线 模 轴 标尺 并 标 上 数 子 


| 结束 
流程 图 7 一 2 
BASIC 状 态 , 才 可 调 BASIC 程序 在 屏幕 上 作 图 . 如 果 要 将 用 BA- 


SIC 程序 在 屏幕 上 绘制 的 图 形 从 打 钱 机 输 册 ,还 必需 预先 启用 
GRAHPICS。COM 文件 , 即 在 键入 命令 BASICA 之 前 , 先 键 入 命 
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4 GRAHPICS. | 

2. 只 有 在 微机 上 装 有 图 形 适 配 卡 时 ,才能 在 屏幕 上 作 图 . 作 图 
命令 可 直接 写 在 BASIC 程序 中 ,常用 的 BASIC 作 图 命令 有 : 

1) 屏 幕 状 态 选 择 命令 SCREEN ,M,BST. M=0 为 字符 显示 
ММ-і 为 中 分 辨 显示 模式 ;M = 二 2 为 高 分 辨 显示 模式 . 

2) 画 点 命令 PSET(X,Y) 和 清除 点 偷 令 PRESET(X, Y). 分 
ШЕЛДОХ ҮЙЕДІ Ж. 

3 Әй LINE(X1,Y1)— (X2— Ү2). 4A (ХІ.ҮІЗЖІ 
《X2,Y2) 之 梧 连 线 ， 

4) 画 阅 或 画 弧 命令 GIRCLE(X,Y),R,START,END. ХХ, 
Y) DU R 5312 12 0. START 和 END AEM 
点 和 终点 . 


七 .计算 实例 


本 程序 采用 运行 其 它 程 序 得 到 的 输出 数据 文件 (如 程序 7-3 
PRCDAT ,程序 7-1 PLTCVI ,程序 2-3 PDF 等 ) 或 预先 制备 的 类 
似 数据 文件 作 输 入 文件 . 此 文件 的 数据 排列 顺序 是 МХ, (X (J), 
《YI1,J),I 一 1,NCV),J 一 1:,NX) ,数据 已 按 自 变量 从 小 到 大 的 顺 
ГЕНЕ. 

A FEIF PR M fa A X: ЕЁ À gk 2 НАУАИ, Н ЖАПЕ Ж 
仁 外 ,其 它 竹 入 参量 缘 用 人 机 对 话 方式 按 屏 幕 查 示 键 入 . 

ЖАН 2-3.2-4,2-5,4-1,5-1,5-2.5-3.6-1.6-4 的 输出 数 
EAEn AE EFAA. 作为 例子 ,将 程序 4-1 LATDYN 生成 
的 声 子 状态 密度 的 输出 文件 SSD 作 输 入 数据 文件 ,到 МСУ--3, 
XMIN= 0, XMAX = 80, IXSCL = 16, YMIN = 0, YMAX = 80, 
IYSCL=16. 程序 运行 后 ,在 屏幕 上 绘 出 相应 于 低 P AAEN 
的 三 条 声 子 状态 密度 曲线 ,并 经 打印 机 输出 , 结 梁 示 于 图 4-1344)》 
НІҢ 4-1404). 


又 如 ;将 程 订 LQMSTF 的 输出 数据 文件 LQDATA( 此 文件 
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已 列 于 程序 7-1 PLTCV1) 作 为 本 程序 的 输入 文件 绘制 液态 Na 的 
结构 因数 曲线 . 取 МСУ = 5, ХМІМ = 0, ХМАХ = 7,1Х5С1.= 7, 
ҮМІМ=0,ҮМАХ =6,1ҮЅСІ.= 6. 程序 运行 后 ,在 屏幕 上 绘 出 在 
пеН Ма ЈА Н. 经 打印 机 输出 的 绪 果 见 图 
2-12. 

运行 指令 : | 

1. GRAPHICS. 2. BASICA. 3. 出 现 OK БЕЗ 键 ( 这 相当 于 
键入 LOAD”), 然 后 键入 绘图 文件 名 PL TCV2. 4. НЯ OK 后 按 
F2 键 ( 这 相当 于 键入 RUN ), 然 后 键入 饮 作 图 的 数据 文件 名 PLT- 
DATA 或 LQDATA. 5. 根据 屏幕 提示 ,键入 相应 的 数据 ,在 屏幕 
上 绘 出 图 形 . 6. 同时 按 Shift 键 和 Prise 键 ,将 屏幕 上 显示 的 图 形 
用 打印 机 输出 . 


八 . 源 程序 PLTCV2 • BAS 


10 DIM Х<6003,Ү(6.6002.Х1(6002.Ү1(6,600) 

20 DIM A(6009),AK(6),B $ 6) 

40 INPUT "ІМРІУТ THE МАМЕ ОҒ INPUT DATA FILE: ".А $ 
50 INPUT ”INPUT THE NUMBER OF CURVES: МСУ -”АМСҰУ 
70 ОРЕМ А $ FOR INPUT AS #1 

90 INPUT #1,NX 

100 FOR J=1 TO NX STEP 1 

120 INPUT #1, XJ) 

130 FOR 1=1 ТО МСУ STEP 1 

140 INPUT #1, Y(1,J) 

150 NEXT Í 

160 NEXT ) 

180 CLOSE #1 

200 XMAX=X(NX}:XMIN=X(1) 

210 YMAX=0!; YMIN=01 

220 FOR J=1 ТО NX STEP 1 

230 FOR 1==1 ТО NCV STEP 1 

240 1F Y (L, J) >YMAX THEN YMAX=Y 0,10 

250 NEXT 1 
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260 МЕХТ ) 

300 FOR J=1 ТО\МХ STEP 1 

310 ҒӨК I=1 ТО NCV STEF 1 

320 IF Y(L,J)<YMIN THEN ҮМІМ-ҮС.) 

330 NEXT I 

340 NEXT J 

400 PRINT "xmin, xmax = 4XMIN 7 ,” ,XMAX 

420 INPUT "INPUT XMIN, XMAX = ”.ХМІМ,ХМАХ 

440 INPUT "INPUT IXSCL = " ,1XSCL 

460 PRINT "ymin, ymax = "+YMIN;"," :YMAX 

480 INPUT "INPUT YMIN, YMAX = ",ҮМІЧ,ҮМАХ 

509 INPUT "INPUT IYSCL = ”,ГҮЗСІ. 

510 IF I XSCL<>>0 THEN GOTO 540 

520 DXSTP= XMAX—XMIN 

530 СОТО 560 

540 DXSTP= {XMAX— XMIN)/IXSCL 

560 DYSTP= (YMAX—YMIN)/1YSCL 

580 PRINT "ахз1р, dystp = */DXSTP;*?,“;DYSTP 

800 [МРТ ”Press <Enter > то continue "Ц 

700 SCREEN 2’high reslution 

710 СІ,5:КЕҮ OFF 

720 А01--150;А02--2;А03--540:А04-- 165 

730 VIEW (А01,4923--СА03,А04),,1 

740 WINDOW С«ХМІМ,ҮМІМ)- (XMAX ,YMAX) 

819 FOR 1-1 TÜ NC V STEF 1 

830 PSET (X(1),Y(1,1)) 

850 FOR J=1 TO NX STEP 1 

870 LINE— (X(J), Y(1,J)).,1 

880 NEXT J 

890 NEXT I 

040 FOR J= ҰМАХ--БҮЗТР ТО YMIN+DYSTP STEF 一 DYSTP 
930 FOR I=XMIN ТО ХМАХ STEP 4 + (XMAK—XMIN)/(A03—A01) 
950 РБЕТ (1, 

980 NEXT 1 

990 NEXT J 

1000 DA =A04— А02 

1020 FOR J=XMIN+DXSTP TO XMAX —DXSTP STEP DXSTP 
1030 FOR I= YMAX ТО YMIN STEP —2 x (YMAX— ҮМІМО/ФА 
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1050 PSET (],1) 

1070 NEXT I 

1080 МЕХТ ) 

1300 IF IXSCL=1 ТНЕМ СОТО 1410 

1310 FOR 1=0 ТО (XMAX— XMIN)/DXSTP STEP 1 

1330 DD= (A01 +DXSTP ж іІж(А03-А012/СХМАХ--ХМІМУУ/8 
1350 LOCATE (NT(AO04/87+2), (INT (IDD)) 

1370 PRINT (XMIN+I + DASTP) 

1390 NEXT I 

1410 FOR І-0 TO (YMAX— YMIN)/DYSTP STEP 1 

1430 ХІ-ІМТ((А092--ПҮ5ТРжІ«ПрА/СҮМАХ- YMIN))/8)+1 
1450 X2=INT(A01/8) —LEN(STR $ (YMAX—I=* DYSTP)) 
1470 LOCATE X1,X2 

1480 PRINT (YMAX—I1+*DYSTP) 

1490 NEXT I 

1500 IF ІХ5СІ.<<2>0 THEN GOTO 2000 

1520 DATA 0. 0,10. 2,15. 5,27. 0,38. 0,41. 0 

1540 FOR І-1 ТО 6 STEP 1 

1560 READ АК (ЈУ 

1580 МЕХТ ] 

1610 FOR Ј=2 ТО 5 STEF 1 

1620 FOR І-ҰМАХ ТО YMIN STEP —2 * (YMAX— YMIN)/DA 
1640 ХІ- (XMAX —XMIN) + AK(J)⁄411 --ХМІМ 

1660 РЅЕТ (Х1,1) 

1680 МЕХТ І 

1690 МЕХТ ) 

1710 DATA "ОСАММА”,"Х”,7%/",”"САММА”,"1)”,%Х” 

1720 FOR І--1 ТО 6 STEP 1 

1740 READ B $ (D 

1760 NEXT I 

1780 PRINT ТАВ(18›:В$ (1), TAB031 B$ (2), TAB(38):B $ (3), 
1800 PRINT TAB(50);B $ 45; TAB(064) В $ (5);jy 1 AB(68)5:B $ (6) 
2000 END 


IL ЕЖ 


1. 此 输入 数据 文件 名 不 能 带 扩展 名 . 例如 PLTDATA 是 可 接 
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受 的 ,而 LATDATA · DAT 是 不 可 接受 的 ， 

2. 为 了 能 用 高 级 BASIC 程序 绘图 ,磁盘 中 必需 有 BASICA · 
СОМ 文件 . 为 了 能 将 屏幕 上 显示 的 图 形 用 打印 机 输出 ,磁盘 中 还 
必需 有 GRAPHICS • СОМ 文件 . 

3. PLTCV2 中 标号 为 1500 至 1800 共 十 七 条 语句 是 专 为 给 
程序 5-2 PSPBND 的 输出 数据 文件 ALBDAT 的 能 带 图 设置 的 ， 
当 输 入 参量 IXSCL= 0 时 ,这 几 条 语句 才 起 作用 ， 

4. 屏幕 上 显示 的 图 框 大 小 可 通过 改变 程序 中 的 参量 А01, 
А02,А03 和 A04 来 调整 . А01 和 A03 分 别 表 示 左 和 右 框 边 的 位 
置 ,A02 和 А04 ЗЕК F fl EHEH br ЖІ. 


程序 7-3 “为 数据 文件 插值 补 点 生成 
等 间隔 数据 的 程序 


一 ,程序 名 :PRCDAT 


二 ,功能 


输入 一 组 自 变 量 z, 和 相应 的 函数 值 y (xz) (i=1,NCY ,j= 
1,NX), 生 成 一 组 自 变量 等 步 长 的 新 数组 ,用 插值 法 生成 相应 的 本 
数值 新 数组 . 这 些 新 数组 构成 的 输出 文件 可 作为 绘图 程序 7-2 
PLTCV2 的 输入 数据 文件 . 


三 .原理 


1. 调用 内 部 函数 ,查找 该 入 的 自 变 量 和 配 数值 的 最 小 .最 大 
值 .并 显示 在 屏幕 上 . 
2. 输入 欲 产生 的 新 自 变 量 的 步 长 ,生成 等 步 长 的 新 且 变 量 数 
ІҢ. 
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3. 对 于 每 条 曲线 i, 用 插值 法 计算 对 应 于 自 变量 新 值 =; 的 函 
数值 y; (z). 将 新 的 自 变量 数组 与 新 函数 值 数 组 存 入 文件 PLT- 
DATA 输出 ， 


H {+ 7-3 


Ji B tk TT ИНЖЕ ХА hv J Ë] ЛЕ Ek Sh SK 
2H AY ES RZ IN 3 £t zH 


流程 图 7 一 3 


五 ,变量 说 明 
* 为 输入 变量 ; * =< 为 从 输入 文件 读 取 的 输入 变量 ;十 为 输出 
АҒЫ 
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МСУ? ,N: 分 别 为 欲 给 曲线 的 条 数 和 输入 文件 担 供 的 数据 可 给 曲 
线 的 茶 数 . 如 果 NCV 二 N, 则 只 读 取 输入 文件 中 前 
МСУ 条 曲线 的 数据 ， 

NX “ ;输入 文件 中 自 变量 x 数组 中 数据 的 个 数 . 

Х‹})'*',үҮП,)°°1=1,МСУ.]=1,МХ. 输入 文件 中 的 日 变量 数 
组 与 函数 值 数组 . 要 求 自 变量 数组 中 的 数据 按 从 小 到 
大 的 顺序 排列 , 

XMIN+ ,XMAX+ ,YMIN+ ,YMAX+ ;输入 的 自 变 量 和 函数 值 的 
最 小 ,最 大 值 . 

DX” ; 饮 生 成 的 自 变量 新 值 的 步 长 , 取 DX 的 值 时 注意 不 能 使 
МХР B. 

МХР ;新 生成 的 自 变量 数组 中 数组 的 个 数 . 


шах Lmin 
NXP=INT( DX 2. 


XP(J)  ,YP(1,J 7; 1=1,NCV.J=1,NKXP. 新 生成 的 等 步 长 的 自 
变量 数组 和 经 插值 得 到 的 相应 的 好 数值 数组 . 


六 , 子 程序 说 明 
LGINT(M,MM,X,Y,A,2) 
拉 格 朗 日 插值 子 程序 ,详细 说 明 参 见 程 序 2-3RDF. 


七 .计算 实例 


本 程序 的 输入 数据 文件 与 程序 7-1 PLTCV1 和 程序 7-2 
PLTCV2 的 输入 文件 完全 相同 ,其 数据 排列 顺序 是 МХ, CX 02. 
(Y(I1,J),1=1,NCV),J=1,NX). 本 
话 方式 按 屏幕 提示 键入 两 个 数据 МСУ 和 DX. 

作为 例子 .将 程序 5-1 ENDBND 的 输出 文件 BND 作 输 入 数 
所 文件 , 取 МСУ =3,DX= 0. 05, 运 行 后 得 到 的 输出 文件 可 取 各 为 
PLTDATA. 输出 文件 的 数据 组 成 形式 和 排列 顺序 箔 与 输入 文件 
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的 形式 相同 ,只 是 将 经 插值 处 理 后 的 NXP,XP,YP 代 赵 原来 输入 
的 NX, X, Y. 将 PLTDATA 作为 输入 文件 ,可 用 程序 7-2 
РІТСУ2 在 屏幕 上 绘图 并 经 打印 机 输出 ， 

运行 指令 :PRCDAT BND PLTDATA 


八 , 源 程序 ;PRCDAT + FOR 


PROGRAM PRCDAT 
DIMENSION IY (9),YY(9),X(600),Y(9,600), 
/ XP(600),YP(9,600),Y1(600) 
OPEN(1,FILE =’ *,STATUS=”"OLD') 
OPEN(10,FILE='* ",5ТАТО5--"МЕУ??) 
WRITECr ,' C' INPUT THE NUMBER ОҒ CURVES,” 
/ МСУ "599 
READ( +. ж) NCY 
Ј=0 ` 
READ, +) NX 
10 READ(1, +» ,END=30) XX, (YY(D ,[= 1,NCV) 
J=J+1 
K(])= XX 
DO 20 I=1.NCV 
20 Ү(1,.Ј)=ҮҮ (1) 
GO ТО 10 
38 CONTINUE 
NX=] 
XMIN=X(1) 
ХМАХ=Х(МХ) 
YMIN=Y(1,1) 
ҮМАХ=Ү(1,1) 
DO 40 [=1,NCV 
DO 40 J= 1 ,NX 
YMIN 一 AMINICYMIN ,Y(1,J)) 
40 YMAX=AMAXI(YMAX,Y (L, J)) 
WRITE(C+ ,50) ХМІМ,ХМАХ.ҮМІМ,ҰМАХ 
50 FORMATC XMIN, XMAX,YMIN,YMAX = ',4(Е6. 2, 
/ "к 1555 
WRITE( * ,'(” INPUT THE LENGTH OF STEP IN ” 
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60 


70 


110 
120 


10 
20 
30 


/ ‚„"Х AXIS, DX = 509 


READ( * ,* ) DX 
NXP=¿(XMAX -XKMIN)/DX 
DO 90 J=1,NXF 
XP(J=X(1)+DX * FLOAT(]—1) 
CONTINUE 
DO 80 1--1,МСУ 
DO 70 L=1,NX 
Y1(L)—=—Y(I,L); 
CALL LGINT(NX,4,X,Y1,XP(J),YP(T,])) 
CONTINUE 
CONTINUE 
WRITE(10,100) NXP 
ҒОКМАТ(1Х,15) 
DO 110 J=1,NXP 
WRITE(10,120) ХРФ),(ҮР<І,Ј,1=1.МСУ) 
FORMAT(1X ,9F8. 3) 
СІ/ОЗ5Е(10) 
STOP 
END 
SUBROUTINE LGINT(N ,MN ,X,Y XI, YI) 
DIMENSION X(N). Y(N) 
M=MkM -+MOD(MM ,2) 
IF (M. GE. N) M=N—MOD(N,2) 
М1=М/2+2 
NL=1 | 
IF(XIL І/Т.ХХМ1-10) GO ТО 30 
М2--М-М/2 
МІ,-М--М-ҒІ 
IF (XL СЕ. X(M2)) GO ТО 30 
DO 10 L= M1,M2 
ТЕССХ1.1Т.Х(1,)). AND. (XI. GE. X(L—1)5>b) GO TO 20 
МІ,--1,-М/2 
МН--М1,--М--1 
Ү1--0. 
ГО 50 І--МІ,.МН 
Ү11==]. 
Ү12=]. 
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DO 40 J=NL,NH 
1Е@. EQ. D GO TO 40 
ҮП=ҮП + (XI 一 X(])) 
YI2=Y12 * ОС-ХО» 

40 CONTINUE 

50 Yl=YI+Y(D + YI /YI2 
RETURN 
END 


57.2 计算 机 绘制 等 值 线 图 


等 值 线 图 是 用 来 准确 表示 场 ( 如 密度 场 , 温 度 场 、 应 力 场 . 电 
场 、. 磁 场 等 ) 的 分 布 形态 的 一 种 最 直观 的 方法 , 例如 回 体 中 电子 密 
度 的 分 布 , 界 面 附近 外 来 原子 的 浓度 分 布 , 传 热 介质 中 的 温度 分 
布 ,位 错 周围 的 应 力 场 分 布 ,PN ЖАМ НАН, ЖЕНЕ 
场 分 布 等 都 可 用 等 值 线 图 来 表示 . 一 般 说 来 ,物理 学 上 要 给 等 值 线 
图 的 物理 量 都 能 满足 计算 机 图 形 学 上 作 等 值 线 的 条 件 ， 

为 了 制备 绘 等 值 线 图 的 数据 文件 ,首先 要 将 函数 关系 表示 成 
矩形 网 格 化 的 数据 ,即将 欲 绘 等 值 线 图 的 数据 转换 成 天 方向 步 长 
为 AX, Y 方向 步 长 为 aY 的 网 格 点 的 数据 ,可 用 并 , 了 和 F 二 个 数 
组 表示 ,其 中 藉 和 了 贮存 和 -7 平面 上 和 卸 形 网 格 点 的 坐 慰 ,到 贮存 
网 格 点 的 函数 值 . 在 一 般 情况 下 ,原始 数据 是 离散 点 ,此 时 可 用 对 
离散 点 按 距 离 加 权 的 最 小 二 条 方 拟 合 数据 的 方法 ,将 数据 网 格 化 . 
下 面 讨论 从 网 和 格 化 数据 计算 等 值 线 的 方法 . 

设 А.В HRBET 4" [4] $ st ,其 坐标 分 别 为 (ZA Ул) (2; 
ун). 8 MIN ЖИ Sa MS 现 有 一 条 函数 值 为 fc 的 等 值 线 ,如 
E A.B 两 点 之 何 存 在 等 值 线 上 的 点 ; 则 fc UE f, R f, 2 B| , BF 
以 ,在 4.B 两 点 之 间 存 在 孝 值 线 的 点 的 判 据 是 

(f, — Sds (fa — fa) < 0 (7 — 1) 
等 号 在 等 值 线 通过 4 点 或 B 点 时 成 立 . 此 等 值 点 的 坐标 (zyy) 可 
分 两 种 情况 计算 : 
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第 一 种 ,两 网 格 点 在 同一 水 平 线 (平行 于 模 轴 》 上 , 即 ya — Xa 
( 见 图 7-15a)》，, 用 线性 插入 法 可 求 得 等 值 点 坐标 为 
2: = z, + (zs — z4) * (fc — РА) (fa — УӘ 
y = Ya = Ya 
第 二 种 ,两 网 格 点 在 同一 竖 直 线 ( 平 行 于 纵 轴 ?上 , 即 z ,= =s 
(ЖШ  7-10%)),Д]Ж 


жанан (7 — 3) 
y = ya + (ya — ул) fe — РА) (fs — ҒО 


B 
oe | = (х,у) 
А А 


(а) 


(7- 2) 


(5) 


17-1 相 邻 两 网 格 点 A #n B 之 间 存 在 等 值 点 (zr,y) 的 两 种 情形 ， 
(а) ул = уву (5) лар 

如 果 把 函数 值 丝 相同 (例如 说 为 fc) 的 点 的 集合 称 为 一 条 等 
值 线 ,我 们 会 发 现 , 它 往往 不 是 一 条 连续 的 曲线 ,而 是 由 互 不 相连 
的 用 条 分 支 曲 线 所 组 成 (参见 图 5-7(e)), 必 须 将 这 些 分 支线 逐条 
找 出 .为 了 找 出 一 条 分 支线 上 各 等 值 点 的 坐标 ,首先 必须 找到 此 分 
支线 上 的 任 一 个 点 ,以 此 作为 起 始点 ,然后 循 迹 查找 第 2,3… 个 等 
值 点 . 可 规定 搜索 起 始点 的 步骤 是 , 先 从 整个 区 域 的 边界 开始 搜 
R , 若 最 外 圈 无 函数 值 为 fc 的 等 值 点 ,就 接着 在 第 二 图 搜索 . 依 此 
”类 推 ,直到 找 装 一 个 等 值 点 为 止 ,以 此 作为 该 分 支线 的 起 始点 . 找 
到 起 始点 后 ,就 可 按 后 面 叙 述 的 循 迹 方法 将 此 分 支线 上 的 全 部 等 
值 点 一 一 找 出 ,然后 再 搜索 下 一 个 分 支线 的 起 始点 , 搜索 到 一 个 等 


值 点 后 ,必须 检查 此 点 是 否 在 前 已 找到 的 分 支线 上 ,如 果 不 在 已 找 
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到 的 分 文 线 上 ,此 点 才 可 作为 新 分 支线 的 起 始点 . 一 直到 在 整个 区 
WAEREA ARER fc 的 新 等 值 点 后 , 才 认 为 此 等 值 线 的 全 
ТЕКЕ. 用 这 种 方法 可 以 把 所 要 找 的 具有 指定 函数 值 
的 等 值 线 一 一 找到 ， 

新 分 文 线 的 急 如 皮 找 到 后 ,就 可 利用 (7 一 1) 至 (7 一 3) 式 在 其 
四 周 的 近邻 网 格 点 之 间 搜 索 该 线 上 的 第 2 个 等 值 点 , 接着 ,由 已 知 
的 两 个 相继 等 值 点 可 以 判断 该 分 支线 的 延伸 方向 ,利用 (7 一 1) 至 
《7 一 3) 式 ,在 顺 着 这 个 方向 的 相 邻 两 网 格 点 之 间 可 找到 下 一 个 等 
值 点 ,直至 将 该 分 支线 上 的 各 等 值 点 全 部 找 出 . 

从 相继 的 两 个 等 值 点 (zi, yi) 和 (zy@,yi) 出 发 ,查找 下 一 个 等 
值 点 的 具体 作法 如 下 : 设 在 等 值 点 (=; РА ШЫ) МЕУ А ЖІ 
В.А 点 在 网 格 点 中 的 编号 为 ,J),B 点 在 网 格 点 中 的 编号 与 АВ 
的 取向 有 关 . 引入 取向 参量 Q ; 

1.@ 二 1, 当 .AB 在 竖 直 方向 , 即 z,= +z == z, Н.В 点 的 编号 为 
(1,.7--1). 

2, Q=0. %4 AB 在 水 平方 癌 , 即 y, = ys = y: BF , B 点 的 编号 为 
(+1, J). | | 

ТЕ А,В {у Е Z Ла, И (лу, у tE M А.В 两 点 的 
Ж УВА ЛАС A D, 于 一 个 等 值 点 将 出 现在 AD, DC 或 CB 三 个 
线段 中 的 某 一 个 上 ,利用 (57 一 1 至 (67 一 3) 式 ,找到 此 等 值 点 并 确定 
其 坐标 ， 

HT PEIRE, E AD, DC 和 CB 三 个 线段 上 搜索 时 , 按 
找到 等 值 点 的 可 能 性 大 小 排 先 后 次 序 . 为 此 ,又 引入 两 个 位 移 参量 
D, 和 D, 来 确定 C 和 DD 两 个 网 格 点 的 坐标 : 

D, = SIGN (Az, (х, — =,)) 

| = SIGN (dy, (у, — М9) 

SIGN 是 符号 传递 函数 ,SIGN Ca, b) = la| - b/]5]. Axr ЖІ Ay 分 别 

АХУЛ МААРЕК. РО A Б.>о 的 情形 ,C 和 万 

EmA AE Cest Dasya d W Cea РР, ya). 而 对 于 人 @=0 和 了 ,> 
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0 的 情形 ,C 和 DD 点 的 坐标 分 别 是 (zxss ys +D, Ссл, ул+Р,), 
“ее. 根据 Q , D. 和 D, 的 值 不 同 ,应 采用 不 同 的 搜索 顺序 , 

1. Q=1 Яй D,>0 

等 值 点 (zs,ys) 在 (xi,y1) 的 上 方 , 故 在 BC 线段 上 找到 等 值 点 
的 可 能 性 最 大 ,CD KZ AD 最 小 . 如 以 1,2,3 分 别 表 示 在 ВС. 
CD 和 AD 线段 上 搜索 等 值 点 的 操作 , 则 合理 的 搜索 顺序 是 1->2 
->3， 见 图 57-2(a)). 

2.Q=1 fl D,<0 

等 值 点 (zz,y%) 在 (zy 的 下 方 , 按 找 到 等 值 点 可 能 性 大 小 
排列 的 顺序 是 AD,CD,BC, 故 合理 的 搜索 顺序 是 3—2—1. 

3. Q=0 M Г,2>0 

PE yD E Cy DW A, БЕАКЛИ ДЕЕ 4--5-- 
6, 7-2(5), 

4. Q=0 M D. <0 

等 值 点 (zy 在 (2 的 左边 ,合理 的 搜索 顺序 是 б6—=5-> 
4. 

当 一 条 分 支线 上 的 所 有 等 值 点 都 找 出 来 后 ,就 到 达 了 该 分 支 
线 的 终点 . 判别 所 找到 的 等 值 点 是 终点 的 原理 是 ;对 于 形成 闭合 曲 
线 的 分 支线 , 治 着 终点 向 下 搜索 到 的 等 值 点 就 是 起 始点 ;而 对 于 开 
始 和 终止 于 边 因 上 上 的 分 支线 ,终点 处 于 边界 上 . 

如 果 等 值 点 (zs,y%) 恰 好 在 网 格 点 上 , 则 不 能 直接 用 上 述 方法 
确定 等 值 线 的 延伸 方向 ,在 此 情况 下 ,只 需 将 该 等 值 点 的 坐标 值 改 
变 一 小 量 gz 或 6y, 就 可 正常 工作 了 . 在 输出 等 值 线 数据 时 , 仍 输 
出 原来 的 真实 坐标 值 . 

如 果 网 格 到 得 较 大 ,可 能 使 某 一 闭合 的 分 支线 嫉 化 为 一 线段 ， 
表现 为 此 分 支线 中 断 在 内 部 . 出 现 此 情况 时 , 程序 将 以 此 断 点 为 起 
А ГЕНЕ СІҢ ЭС. 

Я 22 = (8 ZR BJ X Ek As JE: SB JÉ , BJ W tJ SHEKI ñ) УК 38 
АНЕ É PARAE ХЕРА Н X р] A Қ ДА ЖЕ. 
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(7 一 1 7 十 上) (1,441) 1 (I-FI,J-F1) 


2 


М 


(1-1,0) (ый) (1,7) 2 (1 +1.) 


(в) 


7 十 1 5 《1 十 1 了 十 1) 


(22,02) (I+ 2) 


(b) 


图 72 J.E 18998 {А FA еу) Cyd GAZET 
YJ ВЕН T НЫНЫҢ 1.2.30) 4,5,6(5) 
(a)Q=1.D,>0,D,2>0 Ф (b Q=0.,D.>0,D,>0 Ht 


取 不 同 于 区 域内 的 值 即 可 . 
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程序 7-4 等 值 线 的 计算 


二 ,功能 


输入 网 和 格 化 的 二 维 自 变 基 和 国 数 值 的 数据 ,将 处 于 各 等 值 线 
诗 的 点 分 别 找 出 ,并 生成 数据 文件 ,调用 程序 7-5 PLTCNT 将 此 
数据 文件 绘制 等 值 线 图 ， 


=. 


1. # AS Е р ВИН. ВБИВ 
相同 的 点 ( 称 为 等 值 点 ) 组 成 等 值 线 . 每 一 等 值 线 往往 是 由 互 不 相 
连 的 几 条 分 支线 组 成 . 故 找 等 值 线 有 是 和 将 所 属 的 各 条 分 支线 一 一 找 
H. 

2. 用 (7 一 1) 式 判断 两 网 格 点 之 间 是 否 存在 等 值 点 ,如 果 存 在 
就 用 (7 一 2) 或 (7 一 3) 式 计算 该 等 值 点 的 坐标 . 

3. 对 于 每 一 分 支线 ,按照 从 外 向 内 搜索 的 原则 ,在 网 格 中 查找 
等 值 点 ,如 找到 了 一 个 不 是 已 找到 的 分 支线 上 的 点 ,就 以 此 点 作为 
初始 点 ,然后 在 其 四 周 近邻 网 格 点 之 间 查 找 第 2 个 等 值 点 . 从 已 知 
的 两 个 相继 的 等 值 点 可 以 判断 该 分 支线 的 延伸 方向 ,利用 (7 一 1) 
至 (7 一 4) 式 计算 下 一 个 等 值 点 的 党 标 . 如 此 查找 下 去 ,直到 所 找到 
的 新 等 值 点 与 原始 点 重合 或 达到 边界 为 止 . 至 此 ,该 分 支线 上 的 所 
有 等 值 点 都 已 找到 . 类 似 地 ,可 找 出 各 条 等 值 线 的 所 有 分 支线 . 

4. 输出 每 条 等 值 线 的 分 支 数 目 , 各 分 支线 上 的 等 值 点 数 以 及 
各 等 值 点 的 坐标 , 所 生成 的 输出 数据 文件 可 供 程 序 7-5 PLTCNT 
绘制 等 值 线 图 . 
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五 ,变量 说 明 


* 为 输入 变量 ; * x 为 从 输入 文件 读 取 的 输入 变量 ;十 为 输出 

ЖЕ. | 

IXPT' ,IYPT' ;输入 数据 交 件 中 所 用 的 入 ,了 方向 的 网 格 点 数目 ， 

FXY(I,J) ”XXXGD ,YY(OD'" I=1,IXPT,J=1,1YPT. 分别 
是 第 I 行 第 J 列 网 格 点 的 函数 值 以 及 该 点 坐标 
的 下 分 量 和 YY 78. 

 ХӘР,ҮЗР.ЛШЕ ХҮ УАК Ах Ау. 

DELX ,DELY ОЗ X A Y ЖЫНЫН Ы бл ЖІ ду. 在 等 值 线 
Е,ЧЕ АЗН Æ Pan ХЕ СҚ 
Y 分 量 ) 怡 好 等 于 近邻 网 格 点 的 相应 分 量 时 ,不 能 
用 通用 方法 判断 等 值 线 的 延伸 方向 . 在 此 人 情况 
下 , 需 将 该 等 值 点 坐标 附加 位 移 量 2, (sk 0,). 

МСМТ' :和 欲 计算 的 等 值 线条 数 ， 

. FIC(IC)* ,FC:IC=1,NCNT. ІС 条 等 值 线 上 的 等 值 点 具有 的 
函数 值 . FC 二 FIC (IC). 

NBR(IC)>:IC=1,NCNT. 第 IC 条 等 值 线 的 分 支线 数目 。 

NBPT(IB,IC)7 :IB=1,NBR(IC);IC=1,NCNT, Ж IC 条 等 值 线 
的 第 IB 分 支线 上 等 值 点 的 数目 ， 

XI,IB)-,Y(,IB)+:I=1 NBPTIIB,IC) IB=1,NBR (IC), 第 
IC 条 等 值 线 的 第 1B 分 交 线 上 等 值 总 坐标 的 与 和 
Y 分 量 . 

Q: 相 邻 网 格 点 A.B 的 取向 参量 . 0=1 А.В НАА 
Ж & (2, = ra Q = 2 表示 其 纵 坐 标 相 等 (yw = 
ys), 

DX: [Z &# 8k. D.=SIGN (Ar, (z, 2,)). Щщ r>a i, D. = Аг; 
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№ x 之 Xl В.Р, = — A=, (х,у, У Cr: yp tA 
继 两 等 值 点 的 坐标 . 
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DY: / ЕН. D, =SIGN y, 《yz 一 у1)2. 214 32231 WF, D,= Ау; 
当 y, <y, PF , D, = — Ау. 

IFAIL ;搜索 初始 点 的 标志 变量 . IFAIL=0 为 未 找到 ，] 为 找到 了 . 

JFAIL :搜索 等 值 点 的 标志 变量 , JFAIL= 0 为 未 找到 ,1 为 找到 
Т. 

KFAIL :分 支线 上 斯 点 标志 变量 . KFAIL=0 为 未 出 现 ,1 为 出 现 

| T. 

IFAIL; ДЕШ Ж {у Ж n ЕН LFAIL = — 1 为 出 现在 纵 轴 

上 ,0 ЖЕЖ Е,І 为 出 现在 内 部 . 


ЕНІНЕН 


1. СОМТОАС,Х,УҮ) 

RETH IC 条 等 值 线 的 各 分 支线 上 所 有 等 值 点 的 子 程序 . 对 
于 第 IB 条 分 支线 , 先 在 网 框 的 上 .和 王 横 边界 上 寻找 起 始点 ,如 找 不 
到 则 转 到 在 网 框 的 左右 纵 边界 上 寻找 ,还 找 不 到 就 到 网 和 眶 内 部 逐 
层 寻 找 , 找 刘 起 始点 后 , 先 兰 断 此 点 是 否 是 原来 已 找到 的 分 支线 上 
的 点 ,如 果 是 的 则 无 效 ,直到 我 到 新 的 起 始点 ,就 继续 找 该 分 支线 
上 的 第 2 个 点 ,然后 调子 程序 SEARCH 继续 寻找 该 分 支线 上 的 第 
3,4… 点 ,直到 该 分 支线 上 的 NBPT(IC,IB) 个 点 全 部 找到 后 返回 
到 开始 处 继续 找 第 (IB 十 I) 分 支线 上 的 点 ,直到 把 第 IC 条 等 值 线 
所 属 的 NBR《IC) 个 分 支线 上 的 点 都 找到 为 止 , 将 所 找到 的 各 筹 值 
点 的 坐标 的 xz,y 分量 分 别 存 于 XI,IC) 和 YY(LIC),I 是 将 属于 第 
ІС ЖАУЫН НУ NBR(IC) 个 分 支线 上 的 所 有 点 按 找到 的 先后 顺序 
统一 编 的 号 . 

2. ЗЕАЕСНСП,ЛЬТІР,ПР.ХВ1,ҮВ1,1С,1В,Х,Ү,КЕДІК, 
LFAIL) 

输入 第 IC 条 等 值 线 的 第 IB 分 支线 的 初始 点 (XB1,YB1) ,以 
及 第 2 点 两 侧 的 网 格 点 ((XX(II)， YY JJÐA CXX UPF), YY 
JJP ,继续 寻找 第 3,4,… 等 值 点 ,将 所 找到 的 等 值 点 的 坐标 的 
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X,Y 分 量 存 于 数组 X #l Y. 搜索 等 值 点 是 按 57.2 所 述 的 0--0 
和 1.р. 和 DD, 为 正 或 负 的 各 种 情况 采用 不 同和 的 和 拍 迹 顺 序 调子 程 
序 CASEI 实现 的 . 如 果 此 分 支线 上 未 出 现 断 点 ,KFAIL==0; 出 现 
Т ДІ КЕАП. = 1. 并 按 断 点 出 现在 纵 轴 上 、 横 轴 上 和 内 部 , 赋 给 
LFAIL=—1,0,1. 

3. CASEI(II, J], IIP, JJIP,FC,DXY ,JFAIL)I=1,2,..6. 

如 5 7. 2 РТ, 由 已 知 的 两 个 相继 等 值 点 (zi 入 ?和 (Kz? 32), 
判断 分 支线 延伸 方向 的 一 组 子 程序 ,1==1,6 分 别 对 应 于 所 述 的 6 
个 可 能 的 延伸 方向 
| 输入 时 ,(II,J) 是 当前 等 值 点 (zsyyz) 近 邻 的 网 格 点 的 编号 ， 

FC 是 等 值 线 上 的 点 的 函数 值 . DXY 是 位 移 参量 Dx 或 D, , 它 与 两 
等 信 点 (zw , 31) (е, yo HJ AH X: Ж 9 ><. WR # Jr, ЖЕТ 
等 值 点 , 取 JFAIL=1, 并 输出 此 等 值 点 两 侧 的 网 格 点 编号 ( 开 ,JJ) 
和 (IIP,JJP) ,如 未 找到 , 取 JFAIL =0. 


七 .计算 实例 


本 程序 运行 时 ,采用 风格 化 和 的 数据 文件 ‘例如 程序 5-3 
PSPELD 的 输出 数据 文件 RHOXY) 作 输入 文件 ,以 自由 格式 读 
À. 该 文件 的 数据 排列 方式 是 (CXX(D ,YY(]DD,FXY(1,]),]=1， 
[ҮРТ).1=1,1ХРТ). 除 以 上 数据 外 ,在 义 ,Y ARRA 
数目 .等 值 线 葛 条 数 及 每 条 等 值 线 的 函数 但 赂 通过 人 机 对 话 方式 ， 
KE Ж Ел А. 

作为 例子 ,将 程序 5-3 PSPELD 生成 的 金属 铝 在 (110) 面 上 的 
相对 电子 密度 分 布 的 输出 数据 文件 RHEOXY 作为 本 程序 的 输入 
文件 ,根据 该 文件 的 数值 ,相应 地 取 ІХРТ--31.1ҮРТ--21,МСМТ 
=6,FIC=0. 8;,1.0,1.05,1.2,1.4 和 1.5. 

运行 后 ;产生 如 QUT 的 输出 文件 ,记录 所 有 输入 和 输出 参量 
备查 . 程序 还 自动 生成 输出 数据 文件 CONTR 贮存 每 条 等 值 线 的 
每 分 支线 上 的 等 值 点 的 坐标 , 供 程序 7-5 PLTCNT 绘制 相对 电子 
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密度 的 等 值 线 图 А 5-7<а). 

CONTR 文件 的 数据 记录 方式 是 :1{IC,FIC(IC),NBR (ІС), 
CJ, NBPT (],1С).]} =1,МВЕ (IC)), ((X(1,J), Y(1,]J),I=1, 
МВРТ,1С)).1--1.МВЕСО2ЬІС--1,МСМТ). 

运行 指令 ;CONTOR RHOXY OUT 


Л.Е CONTOR . FOR 


PROGRAM CONTOR 
REAL *8YF1C(10),XX(61), YY(61),FXY(61,61) 
REAL *8 X(150,10},Y (150,10), XSP,YSP,DELX ,DELY 
СОММОМ/ХҮЕНО/ XX,YY ,FXY ,FIC 
СОММОМ/Р/ NBPT(15,10),NBR(10),IXPT ТҮРТ, 
/ XSP,YSP,DELX ,DELY 
OPEN(1,FILE='* *,STATUS=°OLD') 
OPEN(6 ,FILE='* *,STATUS="NEW':') 
OPEN(10.FILE='*CONTR',STATUS="NEW'): 
WRITE(6,10) | 
10 БОНВМАТ(10Х,7% «ж» INPUT DATA ж» + x<'*,/) 
WRITECA ,20) 
90  FORMATC INPUT МО. OF GRID POINTS IN °’, 
/ 'X—DIRACTION, ІХРТ = "> 
READ( +» ,* ) IXPT 
WRITE¿6,30) ІХРТ 
30 FORMATU NUMBER ОЕ GRID POINTS IN ' 
j ,人 一 DIRACTION ; IXPT = ',12) 
WRITE( * ,40) 
44 FORMATO INPUT NO. OF GRID POINTS IN °, 
/ *Y—DIRACTION,; IYPT = 50 
READ( š , * ) IYPT 
WRITE(6,50) IYPT 
50 FORMATO NUMBER OF GRID POINTS IN °, 
/ 'X—DIRACTION ; IYPT = ',12) 
WRITE( + ,60) 
60 FORMATC INPUT THE NUMBER OF CONTOQURS,', 
/ 12X,'NCNT = *^) 
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READC* , x ) МСМТ 
WRITE(6,70) NCNT | 
70 FORMATO THE NUMBER OF THE CONTOURS; , 
/ 11X,'NCNT = 7,12) 
WRITE( + ,80) 
80  FORMATCČC INPUT THE VALUES OF THE СОМТОМЕ.: 
/ ,6X ,'FIC(IC) = "о 
БЕАП(ж, ж) (ЕІСАС),1С=1,МҸСМТә 
WRITE (6,90) (FIC(IC) ,IC=1,NCNT) 
90 FORMAT THE VALUES OF THE CONTOUR: ', 


/ FOCY = ",10Е5. 2) 
КЕАПр(1,%) СОХХО,ҮҮСО,ЕХҮА, |), 


WRITE(10,100) МСМТ,ХКІСАОС»,ІС--і,МСМТ) 

100 ҒОЕМАТ(3Х,15,1Х,10Ғ5. 2) 

ХҮРІТЕ(6,110) 

110 ЕБЕОЕМАТ(/10Х,"% «»» OUTPUT DATA * w = =°?/) 
YSP=DABS(YY(2)—YY(1)) 
XSP=DABS(XX(2)—XX(1)) 
DELY = Ү8Р/20. 0 
DELX=XSF/20. 0 
DO 120 IC=1,NCNT 
CALL CONTR(IC,X, Y) 
WRITE( * ,130) 1C,FIC(IC),NBR (IC) 
WRITE(6,130) IC ,FIC(IC),NBR(IC) 
WRITE(10,140) С.ЕСАС»,МВЕЯСО 
WRITE( + ,150} (І.МВРТСІМЛСО,Г-ч1,МВК ІС)» 
ҰҮЕТТГЕ(6,150) J NBPT0(J,1C),]J= 1, МВК СІС)? 
ҰЕКІТЕ (10,160) СЫМВРТОЛСОІ-1.МВЕ СО») 
WRITE( + ,170) 
WRITE(6,170) 
WRITE(* ,180) ((X(1,J2, Y (l:J); 
/ IL=1,NBPT (J, IC), ]=1,NER(IC)} 
МЕТТЕ 6,180) (XLD YJ), 
{7 і--1,МВРТ(ІІС)»»,Г-1,МВЕ(ІС)» 

120 WRITE(10,180) (С(ХАҺЬрҮС,Пр, 
/ І--1,МВРТСЫІЮО»,Г-1ЬМВЕ СС)» 

130 ЕОЕМАТ(/2Х,12,'—ТН CONTOUR,’,2X, VALUE ОҒ" 
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/ ‚Е8.3,',*,2Х ,12,' BRANCHES. ') 
140 FORMAT(S5X.13,4X,F10.4,4X ,14) 
150 ҒОКМАТ/(3Х,12,"-ТҢ ВКАКМСН,",2Х,13," РОІМТ59 
160 КБОВМАТ(5Х,13,5Х,16) | 
170 FORMAT(?X,'X',14X ,'Y') 
18а FORMAT(L(IX,F10.4,5X,F10. 4) 
WRITEC + ,190) 
WRITE(6,190) 
WRITE(10,190)» | 
190 ЕОКМАТ‹/,6Х,'1С',8Х.'ЕПС)',5Х,?МЧВЕПС)”) 
WRITEC ж ,140) (IC,FICG(ICG) ,NBR (IC), IC=1,NCNT) 
WRITE(6,140) (IC,FIC(IC)N NBR(IC),IC=1,NCNT) 
МЕІТЕС10,140) (IC,FIC(IC),NBR(IC) ,IC=1,NCNT) 
WRITE( * ,200) 
WRITE'6, 200) 
WRI[TE (10,200) | 
200 FORMAT(/3X,'BRANCH МО.”,4Х,7Ч0, OF РОІМТ59 
WRITE (» ,2107 (q NBPT0O ,IC), 
/ J=1.NBR(IC)),IG=1,NCNT) 
WRITE(6,210) ((),МВРТ()ЬІС»» 
/ J=1,NBR(IC)>) IC=1,NCNT) 
WRITE(1606,210) ((].МВРТ(],1С), 
/ J=1,NBR(IC),IC=1,NCNT) 
210 ҒОНКМАТ(5Х,13.10Х,16) 
CLOSE(1) . 
CLOSE (10) 
STOP 
END 
SUBROUTINE CONTR(IC,X,Y) 
REAL «8 FIC(10},XX(61),YY(61),FXY(61,61) 
REAL + 8 X{(150:10},Y (150,10), XSP, YSP, DELX ,DELY 
REAL *8 ЕС.ХВІ1.ХН2.ҮВІ,ҮБВ2,АЛМЕ,ЕА,ҒВ.А.В 
COMMON/XYRHO/ XX,YY ,FXY ,FIC 
COMMON/P/ МВРТ(15,10).МВВ(10),ІХРТ,ІҮРТ, 


/ XSP,YSP,DELX,DELY 
АТІЛМЕХЕС,ҒА,ЕВ,А.В»-“А-ҒХЕС--ЕА)/<ЕВ-ЕА) * (B— A) 
FC=FIC(IC) 

ІН--0 
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10 


29 
30 


40 
29 


ІБі-е0 

ІҒАП,--0 

KFAIL=0 

DO 50 I=1,IXPT ,IXPT—1 
DO 401--1.ІҮРТ--1 


IF((FC—FXY(I,J)) + (FC—FXY(I,J+ 1)). LE.0.) THEN 


IBI=IB1+I 

IF IBI. NE. 1) ІБІ--2 

XH1= XX(I) 

YBI=ALINE(FC,FXY(I,J),FXY(I,J+1), 
YY(J), YY(J+1)) 

IF(IB1. EQ. 1) СО TO 30 

DO 20 IBP=1,NBR(IC) 

DO 20 IPT= 1,NBPT(IBP ,IC)> 

IF(XB1. EQ. XO IPT IBP). AND. YB1. EQ. Y (IPT ,IBP)) 
СО ТО 40 

СОМТІМІЛЕ 

ШЕ 

П--І 

IB=IB+1 

X(1,IB)=XB1 

Y(1,IB)— YB1 

IF (YBL. EQ. ҮҮ(Ј)) YBI=YY(J)+—DELY 

IF (YBL EQ. YY (GJ +1) YBIl=YY(J+1)—DELY 

IFAIL=1 

GO TO 140 

ELSE 

ENDIF 

CONTINUE 

CONTINUE 

DO 90 Ј=1,1ҮРТ ,IYPT—1 

ГО 80 I=1,IXPT--1 


ТЕС(ЕС—ЕХҮ(1,])) * (FCO—FXY([+ 1,J22. LE. 0.) THEN 


IBi=1B1 十 1 

ІЕСІВІ, NE. 1) ЇВ1=2 

YBl= Y Y(J) 

ХВІ = АІІМЕСЕС,ЕХҮЧ,р,ЕХҮС(1У+1,Ј2, 
ХХ), ХХСІ--1)) 
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/ СО ТО 80 
80 CONTINUE 
70 1]=]) 
П=1 
IB=IB-+1 
XO ,TH 一 六 二 
Yii, IB) = YE] 
IF(XB1. EQ. ХХ) XB1=XX(D +DELX 
ІЕСХВІ. FQ. ХХ(1+1)) XB1=XX(1+1)—-DELX 
IFAIL=1 
GO TO 160 
ELSE 
ENDIF 
80 CONTINUE 
g0 CONTINUE 
DO 130 ] 一 2,IYPT 一 1 
DO 120 1--1,ІХРТ--1 
IF((FC-—FXY(L,J)) * (FCO—FXY(I+1,]J2). LE, 0.) THEN 
ІБІ--ІБІ-гі 
IF(IB1. МЕ. 1) 1В1=2 
YBl=YY() 
XBl=ALINEC(FC ,FXY(1,J),FXY(I+1,J), 
/ XX ,XX(1+1)) 
IF(1B1. EQ. 1) GO ТО 110 
DO 100 1BP=1, NBR (IC) 
DO 100 IPT=1,NBPT(IBP ,IC) 
ТЕСХВІ. EQ. XPT, IBP). AND. YBL. EQ. Y (IPT, IBP») 
/ СО ТО 120 
100 CONTINUE 
110 11-1 
II 一 1 
ІБ--1ІВ--І 
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1Е(1В1. EQ. 1) СО ТО 70 

ГО 60 ІВР--1,МВК(ІС) 

DO 60 IPT=1,NBPT (IBP ,IC) 

IF(XB1. EQ. Х(ІРТ „ІВР). AND. YB1. EQ. ҮСІРТ.ІВР)» 


X(1, IB)= XB1 
у(1,.18) = ҮВ1 


120 
120 
140 
150 


IF(XB1. EQ. XX(1)) ХВі-ХХСО)У-ҒГЕІ,Х 

IF (XB1. EQ, XX(I-+1)) XB1=XX(I+1)—DELX 
IFAIL=1 

СО ТО 180 

ELSE 

ENDIF 

CONTINUE 

CONTINUE 

ІҒОҒАП,, EQ. 0) GO ТО 220 

L=1 

IF(TI. EQ. IXPT)y L= —1 

IF((FC—FXYCIL,JJ)) * (FO—FXY(I-TL,JJ)). LE. 0.) 


/ THEN 


YBZ=YY(JJ? 
XB2=ALINE(FC ,FXY (IL, JD:FXY I+ L, J]? , 


/XX(ID,XX(II+L)) 


IFL. LE. 0) H =!1I+L 

IIP=II+1 

)}Р=]] 

СО ТО 210 

ELSEIF((FC—FXY(II+L ,JJ)) + (FC—FXYI+L.JJ+1)) 


/ . LE. 0. ) THEN 


XB2=XX(II+L) 
YB2=ALINE(FC,FXY(I—L,JD,FKXY(II+L J+ 1), 


1 YY ТҮСІ» 


П--П--і, 

ПР=П 

JJP=J]+1 

GO TO 210 

ELSEIF ((FC—FXY (11,ЈЈ+1)) + (FC—FXY(ILIL+L,J]+ 1)) 


/ LE. 0.) THEN 


YB2=Y YY H-+ÀL) 
XB2=ALINE(FC,FXY(Ú,JJ+1),FXYCI+L,J]+ 15, 


/XX(I).,XX(I+L)) 


JJ=])+1 

IFL. LE. 0) II=II+L 
IIP=1I+1 

JJP=]JJ 
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СО ТО 210 

ELSE 

ENDIF 

160 ІЕҒОҒАП, EQ. 0) GO TO 220 

170 L=1 

IF(JJ. EQ. IYPT} L= —1 

IF((FC—FXY(II,JJ+L))* (FC—FXY(II+1,JJ+L)) 
/ .LE.0.> THEN 

YB2=YYú(JJ+L) 

XB2= ALINE (FC.FXY (IL, JJ+L) FXY(II+1,JJ+L)}, 
/ XX(ID ,XX(II+1)) 

JJ=JJ+L 

IP=H+1 

ПР=]] 

СО ТО 210 | 

ELSEIF((FC—FXY(II,JJ)) + (FC—FXY(II,J]+L)) 
ү . LE. 0.) THEN 

XB2=XX(1]) 

YB2= ALINE(FC,FXY(I1.JJ>),FXY (IL, 十 L)， 
/ YY(JJ),YY(JJ+L)) 

IF(L. LE. 0) JJ=JJ+L 

ПР =]11 

JJP=JJ)+1 

СО ТО 210 


ELSEIF((FC—FXY(I+1,JJ)>y x (FCO— FXY(IHI+ 1,JJ+L)) 


/ .LE.0. > THEN 
ХВ2-«ХХЯП--1) 
ҮВ2= ALINE¿(FCO,FKY¿(IIT1.1J),FXY(I+1,JJ+L), 
/ YY(J),YY(J]+L)) 
П--ІП--1 ; 
IF(L.LE.0) JJ=Ji+L 
PII 
ПР-ІП-ы 
СО ТО 210 
ELSE 
ENDIF 
180 IF{IFAIL. EQ.) СО TO 220 
190 L=1 
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IF((FC—FXY(II,JJ)) * (FC—FXY (I1, JJ-+L)>).LE. 0. > 
/ ТНЕМ 

XB2=XX(ID 

YB2~=ALINE(FC ,FXY (I1,]JJ),FXY (1,JJ+L), 
/ YY(JJ),YY(JJ+L)) 

ПР= п | 

ИР=]] +1 

СО ТО 210 

ELSEIF («ЕС-ЕХҮПЬП-ҒІ)) + (FO—FXY(IH+1,J]+L)) 
/ ‚ЬЕ.0.) THEN 

YB2= YY(JJ+L) 

XB2=ALINE(FC,FXY(IL,JI+L),FXY(I+1,JI+L), 
/ XX ,XXG(I+1)) 

J]=)]J+1 

ПР--11--1 

ПЕ-е-31 

СО ТО 210 

ELSEIFCGK(CC—FXY(II+1,JJ)) + (IFC—FXY(II+1,J] +L)) 
/ .LE. 0.) THEN 

XB2=XX(1I+1) 

YR2=ALINECFC,FXY(II+1,JJ),FXY(II+1,JI-+L), 


/ YY(JJ),YY(J]+L)) 

П=Н-+Е1 

ПР=П 

JJP=J] +1 

GO TO 210 

ELSEIF ((FC—FXY(I1,]J)) * (FC—FXY(11,}J— 1) 
/ .ГЕ.0.2 THEN 

XB2=XX(II) 

YB2=ALINE(FC,FXY(IL,JJ PAY ,JI— 15, 
/ YY(JJ),YYú(I—1)2) 

П-И-і1 

ПР=П 

ИР=]]+1 

СО ТО 210 


ELSEIF((FC—FXY(II+ 1,J])) * (FC—FXY(II+ 1,JJ—1)2) 
/ .LE. 0.) THEN 
XB2=XX(II+1) 
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YB2=ALINE(FC,FXY(I+1,JJ > FAYCI+ i,JJ-—1), 
/ YY(JJ, YY (UI— DD) 
П--П-Ғ1 
П-П-1 
ЦР= 1 
ЈР=Ј+1 
GO ТО 210 
ELSE 
WRITE( ж ,200) 
200 FORMAT(3X;' * » WARNING: THIS CONTOUR HAS °, 
/ 'ONE POINT ONLY +* += ') | 
GO FO 240 
ENDIF 
210 МВКСС>-іІВ 
CALL ПЕАЖ СИ, ЈЈ,ШР,ІЈР,ХВІ, ҮВІ,ІС IB, 
у X,Y,KFAIL,LFAIL) 
IF(KFAIL, EQ. 0; GO ТО 10 
IF(LFAIL) 150,170,190 
220 IF(IB. EQ. 0) УУКІТЕС < ,230) 
230 FORMAT(3K.,' * « WARNING: THE VALUE OF CONTOUR’ 


~ ,716 МОТ EXIST * *’) 
240 RETURN | 
END 
SUBROUTINE DRAW ОП.ПЫПР.ПР.ХВІ,ҮВІ,. 
/ IC,IB,X.Y ,KFAIL,LFAIL) 


REAL + 8 ЕЇС(10),ХХ‹\б61),ҮҮ (B61), FAYLGL,61) 

КЕЛІ. «8 X(150,10),Y (150,10? 

REAL * 8 XSP,YSP,DELX.DELY.A,B,FA ,FB 

REAL «8 FC,XB1,XB2,YB1,YB2,DX DY ,XA, YA. ALINE 
COMMON/XYRHO/ XX,YY ,FXY ,FIC 

СОММОМ/Р/ МВРТ (15,10), МВК (10) .1ХРТ ДҮРТ, 


/ XSP, YSP, DELX. DELY | 
АІЛМЕХЕС,ҒА.ЕВ,А,В3--А-Е(ХЕС--ҒА?/ХЕВ--ҒА) ж (В--А) 
FCG= FU IC (TG; 

IF(KFAIL. EQ. 1) GO TÜ 10 
NBE=1 

10 ІҒАН,-<9 
КЕАП,--0 
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20 


30 


40 


/ 


/ 


ХА--ХХЧП) 

ҮУА-ҮҮСО 

IF(NBE. EQ. 1) GO ТО 20 
ХВі:-ХВ2 


- ҮВі-- YB2 


МВЕ=МВЕ+1 Н 

МЕРТСВ,ІСЭ-“МЧВЕ 

IF XA. NE. ХХХПР)) GO TO 30 

IQ=1 

ХЕ2-:-ХА 

YB2= ALINE(FC ,FXY CI, J) ,FXY IL ,1+1), 


/ ҮҮСІр»ҮҮСІ--1» 


Х(МВЕ 18) = ХВ? 

Y (NBE ,1В8) = ҮВ2 

ІЕСҮВ2. ЕО.ҮҮСІ)) YB2=YY(JJ)+DELY 

IF(YB2. ЕО. ҮҮ (1]+1)) YB2=YY(JJ+1)—DELY 

IF(YA. МЕ. YY (UJPY СО ТО 40 

IQ=0 

ҮВ?= ҮА | 

ХВ2-< ALINE СЕС ,FXY (IJD ,FXY (H+1,])), 
XX(D,XXGI+1)) 

Х(МВЕ ,IB) 一 XB2 

Y (NBE ,IB)=YB2 

IF (XB2. EQ. KX(ID} XB2=XX(ID +DELX 

IF (XB2. EQ. XX(I1+1)}) XB2= XX (ID —DELX 

IF (X(NBE ,IB). EQ. X(1,1B). AND. Y (NBE,IB) 


/ БО. Y(1,[B>> GOTO 70 


IF(X(NBE ІВ). EQ. XX(IXPT>. OR. X(NBE ,IB) 
. EQ. XX(1)22 СОТО 70 

ІЕСҮСМВЕ,ІВ). EQ. YY(IYPT). OR. Y (NBLE ,LB) 
.EQ. YY(12) СОТО 70 

DX = DSIGN (XSP , (XB2— XB1)) 

DY =DSIGN (YSF, (YB2— ҮВІ») 

IF (IQ. EQ. 1. AND. DY. LT. 9. 0) THEN 

IFAIL=1 

CALL СА$ЕЗ(И.ЈЈ,ЛР,ЈЈР,ЕС,ОХ,ЈРАТ.2 

IF(JFAIL. EQ. 1) СО TO 10 

CALL CASE2(1I, JJ HP,JJP,FC,DX,JFAIL) 
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50 


60 


IF(JFAIL. EQ. 1) GO TO 10. 

CALL CASE1(11,JJ ИР, ЈЈР,РҒС,0Х,ЈЕАП) 
IFUFAIL. EQ. 1) GO TO 10 

ELSE IF (IQ. EQ. 1. AND. DY. GT. 0.) THEN 
IFAIL=1 

CALL CASE10(II,JJ UP ,IP FC, DX ,JFAIL) 
IF CFAIL. EQ. 1) GO TO 10 

CALL GASE2 J, HIP IP, FC DX, JFAIL) 
IF (UFAIL. EQ. 12 GO ТО 10 

CALL СА5Е3(,ЈЈ, ИР, ,JJP FC, DX ,JFAIL) 
IFUFAIL, EQ. 1) GO TO 10 

ELSE IF(IQ, EQ. 0. AND. DX. GT. 0. ) THEN 
IFAIL=1 

CALL CASE4CII, JJ .IIP.JJP.FC ,DY.JFAIL) 
IFUFALL. EQ. 1) GO TO 10 

CALL CASES. JJ IP JP ,FC DY ,JFAIL) 
IF COUFALIL.EQ.1) GO TO 10 

CALL СА5БЕбОПТЬПРЬ)ІР.ЕС.БҮ.ІҒАП.) 
IF (JFAIL. EQ. 1) GO TO 10 


ELSE IF(IQ. EQ. 0. AND. DX. LT. 0. ) THEN 
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ГҒАП,--1 

CALL CASE6(H ТІМПР.ШР,ЕС.рҮ,)ҒАП,.) 
IF (JF AIL. EQ. > GO ТО 10 

CALL CASESU0(H,J ,IP TPFC, DY ,FAIL ) 
IF{JFAIL. EQ. 12 GO TO 10 

CALL CASE4(GI,JI,1IIP JJIP PFC DY. .JFAIL) 
IFOFAILIL. EQ. 1} GO TO 10 

ELSE 

IF (IFAIL. FQ.0) WRITEC ,50) 


БОҚМАТ(3Х,"» x WARNING: DESIGN IS WRONG » ж?) 


ENDIF 

IF (JFAIL. EQ. 0) THEN 

WRITE ж ,60) 

FORMAT(3X,'* » ТЕКМІМТЕр * +”) 
ХВ1== ХБ? 

ҮВІ-- YB2 

КЕАП,= 1 

LFAIL=1 


70 


10 


10 


IF(IL EQ. 1. OR. IL, EQ. XPT) LFAIL= —1 
IF (J. EQ. 1. OR. JJ. EQ.IYPT) LFAIL=0 
ELSE 
ENDIF 
RETURN 
END 
SUBROUTINE CASE1(IT JJ,IIP, JJP,FC , DX ,JFAIL) 
КЕЛІ,» 8 FIC(10),XX(61),YY(61),FXY(61,61),FC ,DX 
СОММОМ/ХҮКНО/ XX,YY.FXY ,FIC 
JFAIL=0 
L=1 
IFO(DX.LT.0.0) L= —1 
IF((FC—FXY(H+L,JJ+ 1)) + (FC—FXY OE,JI+1)) 


/ .GT. 9.0) СО ТО 10 


==] 
IF(L. EQ. (—1)) HH=II+L 
ПР=П+1 
1)Р=]) 
JFAIL=1 
RETURN 
END 
SUBROUTINE CASE2(], J) ,IP, JJP ,FC ,DX,JFAIL) 
REAL * 8 ҒІС(10),ХХ561»,ҮҮХ(612,ЕХҮ(61,61)0,ЕС.ПОХ 
СОММОМ/ХҮКНО/ XX,YY,FXY ,FIC 
JFAIL=0 
L=1 
IF(DX.LT.0.0) L= —1 
IF(CFC—FXY(H+L,]J]2)= (FC—FXY(I++L,JjJ+1)5) 


/ .GT. 0. 0) GO ТО 10 


П-П--І. 
ПР--Н 
ЛР= 
ЈЕАП. = 1 
RETURN 
END 
SUBROUTINE САЗЕЗОП.ПІПР.ПРЬЕС,ОХЬТЕАП./2 
REAL + 8 РІС(10), ХХ (61), ҮҮ(61),ЕХҮХ61,61).ЕС,0Х 
COMMON /XYRHO/ XX,YY ,FXY ,FIC 
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10 


10 


JFAIL=0 
L=1 
IF(DX.LT.0.0) L= —1 
IF((FC—FXY(II,Jj)) + (FC—FXY(I[+L,JJ)), GT. 0.0) 
/ GO TO 10 
ІЕС. EQ. (—13) I=II+L 
ПР= +1 
ПР--П 
JFAIL=1 
RETURN 
END 
SUBROUTINE CASE4(I1,]JJ-IIP.JJP.FC,DY ,JFAIL) 
REAL * B FIC(10),XX(61), YY (61),FXY (61,612) ,FC DY 
COMMON/XYRHO/ XX,YY :FXY FIC 
JFAIL—0 
1.=1 
IF (DY. UT. 0.0) L= —1 
IF((FC—FXY(IIT1,JJ)2) * (FC—FXY(I[+1,J] 4L?) 
/ . GT. 0. 0) GO ТО 10 
JI= 一 II 十 1 
IF(L.EQ. (—1)) JJ=JJ+L 
ПР--П 
JJP= J]+I 
JFAIL=1 
RETURN 
END 
SUBROUTINE CASE5tII,JJ,IIP, JJP,FGC ,DY ,JFAIL) 
REAL * 8 ЕІС(10),ХХ(61>, ҮҮ (61) .ЕХҮ(61.61).ЕС.рүҮ 
СОММОМ/ХҮКНО/ ХХ,ҮҮ,ҒХҮ,ЕІС 
JFAIL=0 
І,-1 
IF(DY.LT.0.0) L=— 1 
IF ((FC—FXY (H +1, JJ +L)? + (FC—FXY (E JJ+L») 
fi .GT. 0.0) GO ТО 10 
jj=JJ 十 LL 
ЦР=П+1 
])Р== ]] 
ІҒАП,--і 
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10 RETURN 
END 
SUBROUTINE CASE6CI,J1 ,TIP, JP,FC ,DY .JFAIL) 
REAL * 8 FIC(10),XX(61), YY (61) ,FRY (C61 ,61) ,FC, DY 
СОММОМ/ХҮКНО/ XX,YY ,FRY ,Fl 
JFAIL=0 
L=1 
IF(DY.LT.0.0) L=—1 
IF((FC—FXY( (II, JI+L)) + (FC—FXY(IL,JJ)2 
/ . GT. 0. 0) GO TO 10 
IF (L. EQ. (—1)) ]]=]]+1. 
IIP=1I 
JJP 一 JJ 十 1 
JFAIL=1 
10 RETURN 
END 


程序 7-5 绘 等 值 线 图 的 程序 
一 ,程序 名 ;PLTCNT 


二 ,功能 


从 计算 等 值 线 的 程序 7-4 CONTOR 输出 的 数据 文件 
CONTR 读 入 各 等 值 线 上 等 值 点 的 坐标 ww， 在 屏幕 上 绘制 等 人 
线 图 ,并 通过 打印 机 将 屏幕 上 的 图 形 打 印 输出 ， 


=. 


L Æ P PC Ek, a SK S [8] АО к ЖЕЛИ ЙЕ КЕ FER А 
ЯН ЫН 5 18 tti Ж E — RAE HR, I) Et: h k VT Ж 
称 为 分 支 的 互相 分 离 的 闭合 (或 终止 于 边界 ) 的 曲线 . 

2. 输入 数据 文件 中 ,是 按 等 值 线 的 编号 .同一 等 值 线 的 各 分 支 
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线 的 编号 .以 及 每 分 葡 线 上 的 等 值 点 的 彤 号 这 样 三 个 层次 ,将 各 等 
值 点 坐标 依次 排列 的 , 故 可 将 各 分 文 线 相继 绘 出 . 

3. 本 绘图 程序 中 来 用 LINE С, у) — (ун) Н £ {п Ф 
“将 相继 两 点 连接 成 线 ,实现 将 同一 分 支线 上 的 各 等 值 点 连接 成 闭 
合 曲线 . 为 了 避免 将 前 一 分 支线 的 终点 与 相继 的 分 支线 的 始点 也 
馈 误 地 连接 成 直线 ,在 综 每 一 分 支线 时 , 先 用 PSET 命令 将 光标 移 
到 该 分 支线 的 始点 ,然后 再 用 LINE 命令 将 后 续 各 点 连接 成 线 . 


五 .变量 说 明 


‚* 为 输入 变量 ; ж 为 从 输入 数据 文件 读 取 的 输入 变量 . 

NCNT" ; 欲 给 的 等 值 线 的 条 数 ( 不 管 分 支线 有 和 多少 支 ,共有 相同 括 
数值 的 各 分 支 等 值 线 皆 属于 同一 条 等 值 线 ),;, NCNT < 
NCNTP, МСМТР 为 输入 数据 文件 中 的 等 值 线条 数 . 

ХМІМ”,ХМАХ",ҮМІМ",ҰМАХ”. НЕ МИНА. Ж 
界 值 和 维 轴 的 下 .上 边界 值 .它们 应 与 输入 文件 提供 的 
X.Y 数组 的 最 小 .最 大 值 一 致 . 

XSTEP" ,YSTEP' ;分别 是 给 等 值 线 图 的 横 轴 和 纵 轴 标 度 时 所 取 
的 步 长 . | 

FIC (ТС)  ;IC=1,NCNT. ІС 条 等 值 线 上 各 等 值 点 具有 的 函 
数值 相同 ,此 值 即 БІССІС). | 

NBR (1С) **.1С=1, МСМТ. 5 IC 条 等 值 线 包含 的 分 支线 的 数 
Н. 

NBNR :从 第 1 条 等 值 线 的 第 1 分 支线 开始 累计 计数 的 分 支线 的 
ЖА. | 

МЕРТ«ІВТ)" ":ІВТ--1,МВЕТ. 第 IBT 分 支线 上 包含 的 等 值 点 
ҰН. 
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键入 输入 数据 文件 名 


键入 等 值 线 的 条 数 ; 等 值 线 图 的 图 框 的 横 
З 2271 157718, MAY E TARH, 
Aa BAR FI A ЕВРЕ. 


从 输入 数据 文件 读 取 各 等 值 线 的 共同 函数 值 ， 
分 支 数 ， 各 分 支 的 点 数 ， 以 及 各 等 值 点 坐标 


转换 到 屏 带 的 两 分 辨 显示 模式 


绘 等 值 线 图 的 图 框 


在 等 值 线 男 的 纵 锁 坐标 穷 实 数字 标 度 


Са 


流程 图 7 一 5 
X(LIBT)*",YGBT)' ';I=1,NBPT(IBT),IBT=1,NBRT. 第 


IBT 分 支线 上 各 等 值 点 的 坐标 的 Jy IK T Y 分量 ， 
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六 ,计算 实例 


| 本 程序 采用 程 凤 7-4 CONTOR 输出 的 数据 文件 CONTR 作 
输入 文件 . 该 文件 的 数据 排列 方式 是 ;先是 等 值 线 的 数目 及 各 条 等 
值 线 的 函数 值 ,然后 将 各 条 等 值 线 的 数据 依次 排列 . 对 于 第 IC 条 
等 值 线 , 先 为 等 值 线 编号 IC ,函数 值 节 IC(IC) ,分 支线 数目 NBR 
(IC) ,再 是 各 分 支线 的 编号 和 该 分 支线 包含 的 等 值 点 数目 (IBT，, 
МЕРТ(ТЕТ).ТЛЕТ--МВЕТ--1,МВЕТ--МВЕСО.МВКТ 是 从 第 
1 到 第 (IC 一 1) 条 等 值 线 的 所 有 分 支线 的 和 ), 最 后 是 各 等 值 点 的 
坐标 的 ХЕН ҮФЖОХА,р.ҮСО,Г.1-1,МВРТЯВТ)),/ 
=1,NBR(IC)). | 

除 以 上 数据 外 ,和 欲 绘 的 等 值 线 的 条 数 坟 及 绘 玫 的 格式 参数 家 
通过 人 机 对 话 方式 , 按 屏幕 提示 键入 . | 

作为 例子 ,如 要 求 绘制 金属 铝 在 (110) 面 上 的 相对 电子 密度 分 
布 的 等 值 线 图 ,可 将 运行 程度 5-3 PSPELD 产生 的 输出 数据 文件 
RHOXY 作为 输入 文件 ,运行 CNTOR 生成 等 值 线 数据 输出 文件 
CONTR ,再 以 CONTR 作为 本 程序 的 输入 文件 运行 即 得 . 根据 该 
文件 的 数据 ,应 取 ІХРТ--31.ТҮРТ--21,Ж NCNT=6,XMIN = 
0.ХМАХ--1.Х5ТЕР--0.2.ҮМІМ-0,ҰМАХ--0.7,Ү5ТЕР- 
0. 1. 所 绘 等 值 线 的 条 数 , 则 可 到 等 于 或 小 于 输入 文件 中 已 有 的 等 
值 线条 数 的 任何 值 . 在 输入 文件 CONTR 中 已 有 6 条 等 值 线 的 数 
据 , 故 可 取 NCNT=6, 程 序 运 行 后 ,6 条 等 值 线 的 各 分 区 线 全 部 给 
出 . 为 了 将 每 一 分 支线 标 上 相应 的 医 数 值 FIC, 可 分 别 取 NCNT = 
1,2,3,4,5:6, 将 此 程序 运行 六 次 (只 需 儿 分 钟 ) ,从 各 分 支线 出 现 
的 先后 ,就 可 确定 它们 各 自 属於 那 条 等 值 线 . 在 屏幕 上 绘制 的 等 值 
线 图 可用 微机 的 屏幕 图 形 打印 指令 经 打印 机 输出 . 结果 参见 图 5- 
Tla). 

运行 指令 ;类 似 于 程序 7-2 PLTCV2 的 运行 指令 . 
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七 、 源 程序 ,PLTCNT • ВАЅ 


100 DIM Х(90,75),Ү(90,75),ЕІС(10), МВРТС75),МВК (10) 

110 PRINT "ЕМТЕК THE МАМЕ ОЕ THE INPUT DATA FILE,” 
120 INPUT ” FILENAME = ”,А%  ._ 
130 PRINT "ENTER THE NUMBER OF THE CURVES,” 

140 INPUT ^ NCNT = ”,МСМТ 

150 PRINT *ENTER MIN. & MAX. VALUES FOR X 一 BOUNDARY:* 
160 INPUT” ХМІМ,ХМАХ = ”,ХМІМЬХМАХ 

170 PRINT "ENTER STEP LENGTH FOR SCALLING X— AXIS. 
180 INPUT ” ХӘТЕР = ” ,XSTEP 

190 PRINT "ENTER MIN. & MAX. VALUES FOR Y— BOUNDARY :” 
200 INPUT”  YMIN,YMAX = ”,ҮМІМ,ҰМАХ 

210 PRINT “ENTER STEP LENGTH FOR SCALLING Y— AXIS: ” 
220 INPUT ” ‚ YSTEP = *,ҮЅТЕР 

240 ӨРЕМ À $ FOR INPUT AS #1 

250 INPUT #1,NCNTP 

260 FOR IC 一 1 ТО NCNTP STEP 1 

280 INPUT #1,FIC(IC) 

300 NEXT IC 

320 NBRT=0 

340 FOR IC=I TO NCNT STEP 1 

360 INPUT #1,1TIC ,FIC(IC),NBR ІС) 

380 NBRP=NBRT+1 

400 NBRT=NBRT+NBR (IC) 

420 FOR IBT= NBRP TO NBRT STEP 1 

440 INPUT #1,1IBT,NBPT (BT) 

460 NEXT IBT 

180 FOR ІВТ--МВЕР TO NBRT STEP 1 

500 FOR І-1 TO МВРТАВТ) STEP 1 

520 INPUT #1, X(I,IBT),Y (IBT) 

540 NEXT I | 

560 NEXT IBT 

580 NEXT IC 

600 CLOSE #1 

620 SCREEN 2'Ырһ reslution 

640 CLS:KEY OFF 
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650 Абігс-150;А02--2.А03--540.А04--120 

670 VIEW (A01,A02)— <А03,А04), ,1 

680 WINDOW (XMIN ,YMIN)— (XMAX ,YMAX) 

700 FOR ]=1 TO NBRT STEP 1 

710 PSET C(X(1.J),Y(1,])) 

730 FOR 1—2 TO МЕРТ) STEP 1 

750 PSET (X(1,J),Y(1,J)) 

780 NEXT I 

790 NEXT 1 | 

820 FOR І--0 TO (XMAX—XMIN)/XSTEP STEP 1 

830 XM=(A01+XSTEP + 1 * (A03— A013/ XMAX —XMIN))/8 
840 LOCATE (INT(A04/8)+ 2, (INT(XM)) 

860 PRINT (ХМІМ--1%Х5ТЕР 

880 NEXTI ` 

900 FOR 1—0 TO (YMAX—YMIN/YSTEP STEP 1 

920 XX= (A02+YSTEP #1 + (А04--А022/ СҮМАХ- YMIN))/8 
940 ҮҮ--ІМТ(А01/8»--І,ІЕМ(5ТК%(ҰҮМАХ--Іж YSTEP)) 
960 LOCATE (INT(XX)-+1),YY 

980 PRINT СҮМАХ- 1% ҮЗТЕР) 

990 NEXT 1 

1000 END 


97.3 TAUL mlpit B 4 


如 $7,2 所 述 ,等 值 线 图 是 准确 直观 地 表示 场 ( 如 密度 场 , 温 
度 场 . 应 力 场 .电场 .磁场 等 ) 的 分 布 形态 的 一 种 方法 ,但 由 于 所 取 
的 等 值 线 的 数目 有 限 , 未 画 等 什 线 的 位 置 , 场 的 分 布 铺 次 仍 不 消 
Ж. 玖 密度 图 是 直观 地 只 示 场 的 分 布 形态 的 男 一 种 方法 , 它 叶 不 能 
象 等 值 线 图 那 伴 把 在 某 处 场 的 数值 标志 出 来 .但 它 以 发 黎 度 对 比 
的 形式 把 整个 区 域 各 处 的 场 的 相对 大 小 皆 表 示 出 来 了 , 所 以 ,将 等 
值 线 图 和 琉 密度 图 互相 配合 ,就 既 准 确 地 得 到 了 在 一 些 代表 位 置 
场 的 数值 ,也 可 以 全 面 地 掌 旭 各 处 场 的 相对 变化 . 图 5-7 正 是 将 等 
值 线 图 和 疏 密度 图 两 者 配合 使 用 ,全 面 而 准确 地 描述 金属 Al 的 
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(110) 面 的 相对 电子 密度 分 布 的 例子 . 

为 了 绘制 玖 密度 图 ,首先 要 将 淆 数 关 系 表 示 成 矩形 网 格 化 的 
数据 ,即将 欲 绘 跑 密度 铭 的 数据 转换 成 多 方向 步 长 为 АХ.УҮ J n] 
PKA AY 的 网 格 点 数据 ,用 天 .了 和 F 三 个 数组 表示 . 其 中 其 和 
Y 贮存 下 一 了 平面 上 矩形 网 格 点 的 坐标 ;F Wy 8118 АНТ ЖСН. 
在 这 种 情形 下 ,每 个 网 格 点 代表 一 个 纵 、 横 边 长 为 AY 和 AX 的 从 
形 元 ,全 体 和 矩形 元 的 集合 组 成 上 述 网 格 面 . 

每 个 网 格 点 的 函数 值 的 相对 值 , 可 用 该 点 代表 的 矩形 元 内 的 
光 点 数 表示 ,这 些 光 点 被 随机 地 撤 布 在 此 和 矩形 元 内 .这样 ,整体 上 
就 得 到 了 一 个 以 光 点 的 多 少 来 描述 该 处 函数 值 相对 大 小 的 玖 密度 
8. 

ШЕ ТРЕ, КЕЈ Ea z. RAE R 2 Л FU 
Fean WENA. у АРИНА У. 

рбк,у) = Сбх, у) — МАӘУ/СҚ-- fa |) (7- 5) 
思 取 值 在 0 与 1 之 间 . ЦИЕ, 4 A АКЕ K B$ , 2 3E Ел 
内 有 A 个 光 点 . tB ДИ. БАНЕ лс рУ B G kx ТАЛДАН X PR 
数值 的 A 们 . 故 4 ERRAK IAS ЖР] S| АНЯ В. 
时 每 个 矩形 元 内 的 光 点 数 : | 
п(х.у) = АР (x,y) (7-- 6) 
№ B=1 时 , 光 点 的 密度 与 该 处 相对 函数 值 成 正比 ,B 增 大 时 , 光 
点 的 密度 随 着 相对 范 数 值 的 增加 星 B КИН БЕНЕН 
比 度 显 著 提高 | 

КТНЕНЕНИНЯВЕ ЕКЕ А ЗАХ 
(р=1 时 ,n= 二 ;p= 二 0 时 ,n= 二 0). 随 之 而 来 的 要 求 是 每 个 矩形 元 应 
尽量 取 大 些 , 否 则 当 p 较 大 时 ,许多 光 点 出 现在 此 小 面积 内 ,其 中 
的 部 分 光 点 的 位 置 将 会 重合 ,导致 实际 的 光 点 数 减 少 而 失真 , 但 是 
矩形 元 面积 的 增 大 相当 于 网 格 点 数目 减少 ,这 又 会 导致 计算 精确 
度 的 下 降 . 所 以 ,合理 地 选取 了 网 格 点 和 选取 适当 的 线性 放大 尾数 
值 , 是 得 到 准确 而 清晰 秀 玻 密度 图 的 关键 . 
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程序 7-6 ” 绘 疏 密度 图 的 程序 


二 ,功能 


| 输入 一 组 自 变 量 zisyiy 以 及 相应 的 函数 值 Feri yo H ARAE 
”数据 4=1,IXPT,y=1,IYPT) ,在 屏幕 上 绘制 疏 密 度 图 ,并 通过 
打印 机 将 屏幕 上 的 图 形 打 印 输出 , 在 屏幕 х,у ДАНИЯР Pq Ж 
点 数目 与 该 点 的 落 数 值 成 正比 (了 到 B=1) 或 变化 显著 ( 取 В>1). 


=. FË 


1. 从 输入 数据 文件 读 取 自 变 量 数 组 X,Y 和 函数 值 数 组 F. E 
们 代表 着 图 上 的 IXPT XIYPT 个 网 格 点 ,每 个 点 有 确定 的 函数 值 
J- | | 

2. 每 个 点 扩展 成 一 个 矩形 元 ,这 IXPTX1IYPT 个 和 矩形 元 恰好 
组 成 一 个 完整 的 图 . i 

3. 用 每 个 矩形 元 内 所 绘 的 光 点 数 自 来 表 示 该 矩形 元 的 中 心 网 
] (т, у) 8 Н 了 (rz,y) 的 相对 值 рб, у). 这些 光 点 的 位 置 
由 随机 数 RND 确定 , 也 就 是 说 ,每 个 矩形 元 中 的 光 点 数 随 f (>, 
y) 的 增 大 而 增多 ;并 随机 地 散布 在 此 矩形 元 内 . 这 样 ,总 体 上 就 构 
成 用 光 点 的 密度 来 描述 该 处 函数 值 相对 大 小 的 环 人 密度 图 

4. 可 用 微机 的 异 幕 图 形 打 印 指令 ,将 屏幕 上 绘制 的 芍 密 度 图 
用 打印 机 输出 ， 


,流程 图 7 一 6 
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键入 琉 密度 图 的 框图 的 模 轴 的 左右 边界 值 ， 纵 轴 下 上 上 边界 值 ， 给 移 输 和 弘 输 
标 度 时 所 取 的 步 长 ， 疏 密度 的 最 小 愉 和 最 大 值 ， 国 中 每 个 网 格 点 扩展 成 的 滤 
形 元 的 宽 应 和 高 度 ， 以 及 朴 密 度 的 指 效 增强 赦 次 和 线性 放大 阁 效 


转换 到 屏 帮 的 高 分 辩 显 示 模 式 


ШӨЖЕ ТЫР] НІНЕ 


PT= #9 vi 


H * Т Іі. ж ЕЙ > 
ЖНА ЙЛ E ЖОНИ AH 
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五 .变量 说 明 


* 为 输入 变量 ; + # 为 从 输入 数据 文件 读 取 的 输入 变量 . 
ТАРТ” IYPT" :输入 文件 提供 的 数据 ,是 在 直方 向 和 了 方 问 所 取 
的 点 和 的 数目 | 
XI ,YC EGA, D :TI 一 1,JIXPT,J 一 1,TIYPT ,分别 是 输入 
文件 中 的 二 维 自 变量 数组 和 函数 值 数 组 . 
XMIN ' ,XMAX* ,YMIN"' ,YMAX"' ; ЕЛІН ІН. ДӘЛ 
界 值 和 级 轴 的 下 ,上 边界 值 . 它们 应 与 输入 文件 
ВЕ Х.У 数组 的 最 小 ,最 大 值 一 致 . 
XSTEP" ,YSTEP: ;分 别 是 给 玖 密度 图 的 横 轴 和 纵 轴 标 度 时 所 取 
的 步 长 . | 
FMIN ,FMAX" ЕЕ ИН HB ЯП КИ, PJ #Ж të À 
文件 提供 的 函数 值 数组 的 最 小 ,最 大 值 选取 . 
DX" ,DY ” ;组 成 玖 密度 图 的 每 个 网 格 点 扩展 为 一 个 矩形 ,DX 各 
DY 是 此 和 矩形 元 的 宽 和 高 ,它们 应 与 输入 文件 提 
| {ИНН EE XAY 的 步 长 一 致 . 
POWER , 琉 密 度 的 指数 增强 宕 次 B. ДЕ B= 1 FF, ЖЕЛЕГЕ x ñ 
密度 等 于 该 处 函数 的 相对 值 p J K J, 8632 
АЗН Н ШАЯ р, А B n[ 18 %a 8 a 
МН. 
AMPL" ЕРЕ НКХЕИК 4, 也 是 朴 密度 图 上 每 个 点 代表 
| 的 乱 形 元 内 打 光 点 的 最 大 数目 ,一般 取 AMPL> 
Á. 
NUMPT: БЕ ЕН ЕЖ Воріт НИ Н 
п.пбх»у) АА Сх» у) —– Ја) Сх fandy”. 


六 ,内 部 函数 说 明 


RND 为 ВАЯСА, СОМ 中 包含 的 产生 随机 数 的 内 部 函数 ， 
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每 次 调用 时 ,输出 一 个 数值 在 零 到 1 之 间 的 随机 数 . 
七 .计算 实例 


本 程序 采用 预先 制备 的 网 格 数 据 文件 作 输 入 文件 ,此 文件 中 
数据 排列 顺序 是 ((X(I) YC(D),F (I,J),1=1,1XPT),]J=1,， 
IYPT). X(D , Y(J) ИН ЕТТ, 25 J 2|BJ S] AE ba, F 
DERAH РЕ КЕЛЕ ЖЕШ, БЕ k IB ЕНІН ЕЛ ЕЖ 
外 ,绘图 的 格式 参数 皆 通 过 人 机 对 话 方式 按 屏幕 提示 键入 . 

作为 例子 ,将 程序 5-3 PSPELD 生成 的 金属 铅 在 (110) 面 上 的 
相对 电子 密度 分 布 的 输出 数据 文件 RHOXY 作 本 程序 的 输入 文 
件 , 根据 该 交 件 的 数据 ,相应 地 取 IXPT=31,IYPT=21,XMIN= 
0, XMAX=1,XSTEP =0.2,YMIN=0,YMAX=0.7,YSTEP= 
0. 1, DX=0.033,DY=0,035,FMIN=0,FMAX=1.5,POWER 
--<2.0,АМРІ,-7. 程序 运行 后 ,在 屏幕 .上 绘制 表示 金属 铝 在 (110) 
面 上 的 电子 密度 分 布 的 疏 密度 图 ,可 用 微机 的 屏幕 图 形 打 印 指令 
经 打印 机 输出 . 结果 参见 图 5-70). 

运行 指令 ,类 似 于 程序 7-2 PLTCV2 的 运行 指令 . 


八 、 源 程序 :PLTDNT • BAS 


30 DIM X(61).Y(61),F(61,61) | 

40 PRINT “ENTER THE МАМЕ OF THE INPUT БАТА FILE,” 
50 INPUT ” FILENAME = ”,А% | 
60 PRINT “ENTER NUMBER ОЕ GRID POINTS:" 

70 INPUT” ТХРТМҮРТ = ”,IXPT.1YPT 

80 OPEN A$ FOR INFUT AS #1 

100 FOR 1=1 TO IXPT STEP 1 

110 FOR J=1 TO IYPT STEF 1 

120 INPUT #1, ХАО.ҰОУЫҒА. 

130 NEXT J T 

140 NEXT I 

150 PRINT "ENTER MIN. & MAX. FOR X—BOUNDARY ,” 
160 INPUT * XMIN,XMAX = ”.ХМІМ,ХМАХ 
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170 PRINT "ENTER STEP LENGTH FOR SCALLING Х—АХ15:” 
180 INPUT ” XSTEP = ”,Х8ТЕР 

190 PRINT "ENTER MIN. & MAX. FOR Y —BOUNDARY ,” 

200 INPUT * ҮМІМ,ҰМАХ = °,ҮМІҸ,ҮМАХ 

210 PRINT “ENTER STEP LENGTH FOR SCALLING Ү-- АХІЅ:" 


220 INPUT ” ҮЗТЕР = ”,ҮЗТЕР 
230 PRINT "ЕМТЕК WIDTH &. LENGTH ОЕ А GRID POINT,” 
240 INPUT ” DX,DY = ”,рХ,рҮ 


250 РКІМТ "ЕМТЕЕ MIN. & MAX. OF DENSITY FOINTS,” 
260 INPUT " ЕМІМ,ЕМАХ = ”,ЕМІМ,ЕМАХ 
270 PRINT "ENTER THE POWER.” 


280 INPUT ” POWER = ” , POWER 
290 PRINT "ENTER THE AMPLIFICATION :” 
300 INPUT * AMPIL, = ",АМРІ. 


400 SCREEN 2 high reslution 

420 CLS:KEY OFF 

430 А01 = 150.А92= 2 : А03-- 490 :А04--120 

440 VIEW (А01,А02)--( А03,4А04). ,1 

450 WINDOW (ХМІМ,ҮМІМ)--(ХМАХ,ҰМАХ) 

470 FOR І--і ТО IXPT STEP 1 

480 FOR J=} TO IYPT STEP 1 

490 IF Е(1,)) < FMIN THEN F(I,J)=FMIN 

500 ANUMPT=((F(1,J2—FMIN)/(FMAX—FMIN)) ` POWER 
520 МУМРТ-ІМТ(АМРІ, + АМОМРТ) 

530 FOR K=1 ТО NUMPT STEP 1 

540 X= X(+ DX + (RND—. 5) 

550 Y=Y(J)+ DY x (RND—. 5) 

560 PSET(X.Y) 

570 NEXT K 

580 NEXT J 

590 NEXT Í 

600 FOR I=0 TO (ХМАХ—ХМЇМ)/Х5ТЕР STEP ] 

610 XM= (A01+-XSTEP *1* (A03— A01)/ (XMAX—XMIN))/8 
620 LOCATE (INT(A04/8)+ 2), (INT(XM)) 

640 PRINT (XMIN+I * XSTEP) 

660 NEXT I 

680 FOR I[=% TO СҮМАХ- YMIN)/YSTEP STEP 1 

700 ХІ--(А02--Ұ5ТЕРжі»(А04-А02)/СҮМАХ--ҮМІМҘ)/% 
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720 Х2=1ІМТ(А01/8) —ГЕМСТЕ $ (YMAX—I* YSTEP)) 
740 LOCATE (INT(X1)+1),X2 

760 PRINT СҰМАХ--І»ж ҮЗТЕР) 

780 NEXT I | 

800 END 


Ju .注意 


НТЖЕ ЕКЕНИН ЖКМ ЕЖЕН ЖЕ, ИНЕ" 
第 形 元 的 面积 杰 小 ,对 于 高 密度 区 域 , 光 点 较 多 而 导致 不 少 光 点 互 
WEA, PERRA ERHI AOE E). 


57.4 孤子 运动 与 计算 机 动态 图 形 显示 


在 计算 机 实验 和 计算 机 模拟 工作 中 ,把 每 时 刻 计算 机 运行 得 
到 的 结果 及 时 地 以 图 形 的 形式 显示 在 屏幕 上 ,可 以 直观 形象 地 反 
了 映 事 物 的 发 展 ,演化 过 程 ， 

动态 图 形 显 示 要 求 计算 机 将 当前 时 刻 的 图 形 在 屏幕 上 显示 出 
来 ,并 将 前 一 时 刻 的 图 形 从 屏幕 上 消去 .这样 我 们 在 屏幕 上 看 到 的 
就 是 一 个 随时 间 变 化 的 动态 图 形 . 在 屏幕 上 显示 光 点 用 汇编 子 程 
ГЕ PLOT 或 BASIC 命令 PSET 第 能 实现 ,而 在 屏幕 上 消除 光 点 
可 用 汇编 子 程 订 PLOT 或 BASIC #4 PRESET 达到 . 为 了 识别 
屏幕 上 现 有 的 欧 点 分 布 状况 ,还 要 调 用 汇编 子 程序 СЕТ, КА 
图 用 的 汇编 子 程序 将 在 程序 7-7 SOLITN 的 说 明 中 详 述 ,而 有 关 
的 BASIC 绘图 命令 已 在 程序 7-2 PLTCV2 中 详细 说 明 ,程序 1-3 
EDGDSL 和 程序 1-4 DSLMOV 就 是 计算 机 动态 图 形 显示 的 例 
T. 程序 7-7 SOLITN 关于 孤子 运动 的 演示 也 是 一 例 ， 

某 些 非 线性 微分 方程 具有 特殊 的 孤立 波 解 . 孤立 波 的 重要 特 
征 是 ,其 波形 和 速度 不 随时 间 变 化 . 如 果 两 孤立 波 在 相互 作用 后 各 
自 波形 仍 不 改变 , 则 称 为 孤立 于 ,或 简称 弧 子 . 物理 学 中 的 一 些 重 
要 方程 ,如 КІеіп-Согаоп HEME ЕТУ Л БЕРН ЭВ +T Ж. 
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近年 来 孤子 的 梳 念 被 广泛 用 在 许多 学 科 领 域 . 大 到 字 宕 中 的 
涡 旋 星云 ,小 到 微观 的 基本 粒子 ,都 在 一 定 程 度 上 具有 鬼子 的 性 
Жї. 孤子 的 存在 和 作用 是 不 容 置疑 的 . АТ ва Р) АДР 
缺陷 , 极 大 地 影响 金属 的 强度 ;由 于 育 乙 糯 的 载 流 于 不 是 通常 的 所 
子 和 空 究 , 而 是 弧 子 ,微量 摊 杂 可 使 反 式 聚 乙 癸 的 电导 率 提 柄 10 
数量 级 ,达到 铜 的 导电 性 ;激光 在 介质 中 的 上 自 襄 焦 , 开 招 子 交 孤 子 
通信 的 诱 人 前 景 , 此 外 ,超导体 中 的 磁 通 量 、 流 体 中 的 渔 诞 、 液 晶 中 
哮 壁 的 运动 ,以 至 神经 网 格 中 信号 的 传递 , 由 可 归结 为 孤子 运动 形 
孤子 的 概念 起 源 于 孤 波 一 一 一 种 在 水 面 上 传播 保持 形状 不 变 
的 孤立 的 波峰 , 其 运动 状态 可 为 KdV ҰН: 
ERECAN, (7-7) 
此 处 几 表 示 波 的 幅度 ,a 是 常数 . 这 是 一 个 非 线 性 方程 ,存在 如 下 
的 解 ; 


a == L sech? (= — 4t) (7 — 8) 


EREA RE, ЧН U Ж 12/0. MEPA z AD, 
Ж а ЛЕ ЕА ЖОЕ жЕ ДБ, (7-8 ЕРНІ e i НАМЕ ЖЖ 
р о. 5—4, 

MH A ВЕЕ ЕЕ ЕН ЕЗІН жЕ АЕ? НІНЕ 
叶 分 析 得 知 ,孤立 的 波峰 是 由 许多 不 同 波长 的 平面 波 登 加 而 成 , 当 
此 波峰 在 介 策 中 传播 时 , 均 于 不 同 波 长 的 平面 波 速度 不 同 ,经 过 一 
段 时 间 后 , 流 蜂 就 弥散 开 来 ,不 能 保持 原来 的 波形 了 ,此 即 色散 效 
应 ; 当 介 质 中 存在 非 线 性 效应 时 ,低频 成 分 的 能 量 相 能 通过 非 线 性 
作用 {( 例 嫩 倍 频 , 和 频 过 程 ) 而 转移 向 高 频 成 分 ,这 也 导致 竹 立 的 波 
峰 在 传播 时 变形 , 只 有 在 色散 和 非 线 性 效应 所 产生 的 影响 恰好 相 
消 时 ,波峰 的 形状 才 可 保持 不 变 而 得 到 孤 流 .在 一 定 条 件 下 ,KdV 
方程 描述 的 波 可 符合 上 述 情况 . 考察 (7 一 7) 式 , 它 的 第 二 项 是 非 线 
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性 项 ,去 掉 第 二 项 ,只 留 下 第 一 和 第 三 两 项 则 组 成 具有 色散 的 线性 
波动 方程 , 所 以 (7 一 ?) 式 同时 包含 了 这 两 种 效应 . 通过 选择 适当 的 
参数 ,使 两 者 对 波峰 产生 的 变形 相互 抵消 ,就 能 形成 如 (7 一 8) 式 表 
述 的 ,以 一 定 速 度 w 运动 ,而 形状 保持 不 变 的 孤 波 . 

孤 波 具有 如 下 三 个 特性 . 1 定 域 性 ;波形 集中 在 一 定 范围 内 ， 
超出 此 范围 ,波幅 很 快 趋 于 零 ,因此 波动 的 能 量 也 局 域 在 此 有 限 范 
围 之 内 . 2. 稳定 性 :在 传播 过 程 中 波形 保持 不 变 ,其 传播 速度 也 保 
持 恒 定 . з. 完整 性 :两 孤 波 相 碰 再 度 分 离 以 后 ,波形 恢复 到 原来 形 
状 ,传播 速度 也 不 改变 . 具有 这 三 个 性 质 的 孤 波 ,可 以 作为 粒子 来 
处 理 , 称 为 孤子 . 

孤子 理论 的 数学 公式 是 严格 的 ,但 缺乏 直观 性 . 我 们 可 以 根据 
有 关公 式 , 用 计算 机 在 屏幕 上 将 孤子 的 运动 ,两 孤子 的 碰 熏 ,以 及 
当 孤 子 与 反 孤 和子 分 离 得 很 远 后 ,在 其 中 部 的 一 个 小 区 域内 的 定 域 
振动 (呼吸 子 ) 动 态 地 显示 出 来 . 

克 菜 (Klein) 和 高 登 人 Gordon) 推 时 了 一 个 荷 惠 粒子 在 电磁 场 
中 运动 的 相对 论 波动 方程 . 在 自由 粒子 的 特殊 情形 , 克 莱 - 高 登 方 
程 成 为 ; 
| g (7-9 
取 原 子 单位 (正二 产 一 ce 一 17》 和 c 一 1 并 将 其 推广 为 考虑 了 ЗЕРЕ ` 
应 , 则 对 于 势 函 数 洲 ,有 如 下 形式 : 


lita 
Vy— с? ағ 


К. р УМ =i (7—10) 
如 到 维 情 形 ,得 到 Sine-Gordon ЖЖ: 
де. 90 апр = 0 (7--11) 


ШУ ИТАЛ ТЕЖЕЛЕ Х-л-іл, e prt) = ў 
(XI , 则 (7 一 11) 式 成 为 


(17° — 1) dÍ Lsin f =0 (7 — 12) 


ДҮ? 
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下 面 讨 论 Sine-Gordon 方程 的 几 个 与 孤子 运动 有 关 的 解 ， 
一 . 单 狗 子 的 运动 


将 (7 一 12) 式 对 f 积分 ,得 到 
1 


24 一 МБ) — cos f = А — 1 (7 — 13) 


取 (4 一 1) 作 积分 常数 ,是 为 了 以 后 天 述 的 方便 . 利用 三 角 公 
xÉ сов / = 1—2вїп +) ,上 式 成 为 


14% – МА = A — вй! Z] = Gc) 


(7-14 
如 取 /27<21,А4-0.6-.0,48 ІІ ЛЯ. 
ГОХ) = ttg !{ехр((Х — Х20/У1-059)р (7 — 15) 
由 此 式 可 见 ( 可 参阅 后 面 类 似 的 图 7-3, 3 X Moit X. 
到 十 co 时 ,了 从 0 达到 再 增 至 2r. 在 左 半边 ,波形 的 幅度 是 常数 
0 ,在 石 半 边 是 2x, 在 此 两 段 水 平 直线 之 间 有 一 逐渐 过 流 区 域 ,其 
波形 象 一 个 台阶 ,这 是 一 种 具有 有 扭 结 (Kink) 形 式 的 孤子 .通常 将 
上 证 了 从 0 到 2 的 扫 结 称 为 正 弧 子 , 而 把 了 从 2 到 0 的 极 结 称 
HMF ENT ARATO. БИТА АГ КОЕ Е, Ас, 
аЛ 57 Ey 20 ü B ТЗТ. 
(7 一 15) 式 的 形式 与 用 位 错 的 点 阵 模型 计算 的 为 型 位 错 的 位 
移 场 а. (z) CERETI + 方向 偏离 子 理 想 唱 体 中 位 置 的 位 移 ) 
相似 


ера (7-16 
H a 为 原子 间距 ,6 ЖШ ЕШ.» 为 泊 松 比 ,$ 为 位 错 半 宽度 
(r= tetum F| 2 | ,为 无 穷 远 处 а , 值 的 一 半 ). 所 以 位 错 


J ña НАУ —#h f T- ah 64. 
БЕК X = 0,3fF 5 K Pt im YE. i$ X {КИ ЛАЧ ы. ЙІ 
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单 孤 子 解 (7 一 15) 可 写成 
хы = Абр! {ехр((х — Ut)/ /1 077) (7 — 17) 

将 (7 一 15) 式 取 微 商 ,得 到 
АХ, 2secbi (X — Х,)/ v] — 0%) 


或 写成 
zst) q, Becht — UD/ VISU) о 
ar л 
df (X) 


“a ра КЕ ӨЛЕ RT ИЕК 


的 孤子 , (7 一 18) 和 (7 一 19) 两 式 的 十 号 和 一 号 分 曾 对 应 于 正 、 反 绝 


子 , 波 蜂 中 心 WE: 此 两 式 是 表征 一 个 孤子 以 速度 U 运动 


的 方程 ,图 7-3 是 根据 此 两 式 编 制 的 演示 折子 运动 的 程序 7-7 
SOLITN 运动 时 在 不 同时 刻 显 示 在 屏幕 上 的 了 图 象 . 


7-3 ~ EMT Е ЕЖЕЛ А, fü o 
ТЕТЕ (Ы 279. 


(а 4. (фи =, 
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二 ,两 个 同 号 陶子 的 相互 作用 
单 孤 子 解 (7 一 15) 提 示 我 们 作 变 换 
e = e| 4%) (7 — 20) 


可 能 便于 求 出 方程 的 另 一 些 解 , 此 时 Sine-Gorden 方程 (7 一 
11) 成 为 


ЕКСЕ ЛЕ lla, -IE H) 


(= 21) 
将 Gz 和 分离 成 只 会 过 和 只 会 上 的 两 个 线 数 f(z).g (1), 设 有 
_ J _ 

PEt) = o (7 22) 


将 它 代入 (7 一 21) 式 ,并 令 S= g =E Ша 
2 Je '- Ж __ — 2 pE 
а л zt =f + а 


(7 — 23) 
ВЕ Н зі біп 4001—6610, 489] 
It 1 fa, = 
| 4 и (еуі 3 = iy айшы, 


式 中 的 y 是 分 离 芝 狼 ,上 元 是 两 个 独立 的 微分 方程 ,经 两 次 积分 
后 成 大 
жұты і ае Ру, тар 
н š i ы | (7 — 25) 
түй == pg ЕЗ тащ” +4, 
此 处 C: Codi 3 箔 为 积分 常数 . 将 (7 一 25) 式 代入 (7 一 23}) 式 ,可 
с, 1,6, 4, =0. 可 改写 (7 一 25) 式 为 
| n fi + I + A) + v 
| (7 — 26) 
g? 一 一 Ap 本 十 和 一 
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式 中 出 现 常数 АЯ» MRE д0 0 А20, Е 


 |f'* = (1 + À) f* -t v 
> A (7 一 27) 
其 解 为 
Ка) =+ sinhC AIT A — zo)) 
(7 — 28) 


ga) = + „| + совЬ С / À G — ы» 


EAE > 0 BJ SR WMR vv<0, 只 需 将 (7 一 28) 式 中 的 sinh 和 cosh 
Н, о о ВАГ. 令 积分 常数 re 一 0,t 王 0 也 不 会 失去 营 
遍 性 . 从 (7 一 28) 式 得 到 方程 (7 一 20) 和 (7 一 22) 的 解 (此 解 与 v 值 
ЖЖ), 
[Usinhtz/ /1 — U) 
[ cosh (Ui) Z] = 17) 
式 中 作 了 代 换 А072 161— 07°), h F 4220, A 0<U?*—<1. 对 上 式 
取 之 的 偏 微 丙 ,得 到 


p(T) == 4tg | 《7 一 29) 


WT _ 
дх 

4Ucosh(z/ м1 ~— Ui)cosh(Ui/ /1 —{Лу v1— 07°) 

Ai — ТЕТЕ (z/ <1 — UF) + cosh’ (Ut/ Ut/ Vi Us) 
(U > 0) (7 — 30) 
(7 一 29) 和 (? 一 30) 式 是 两 同 号 竹子 相互 作用 的 解 .图 7-4 是 
HIE LER А Ha [| ñ БЕЛЕ 7-7 SOLITN 运行 时 ,在 三 个 不 同时 刻 
显示 在 屏幕 上 的 图 象 . 从 图 可 见 (? 一 29) 式 表示 一 对 扭 结 形 的 正 孤 
子 , 而 (7 一 30) 式 是 一 对 波峰 形 的 正 孤 子 . 它们 各 自 以 速 度 U 相向 
运动 ,经 碰撞 后 各 自 弹 回 ,其 形状 和 速度 值 (因而 能 重 值 ) 不 因 相 互 

作用 而 改变 . 
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(а) 
三 ,呼吸 子 


如 采取 Из-0,у2>0 和 4<0， 
并 写 = 一 wr; 则 (7 一 26) 式 成 


为 Pha I 
f! = (1 — x=! ft + v 
\й = — wg — u | 
(7 — 31) (e) 
由 此 得 到 67-5 ЕА 
ам) = 右 两 端 相向 运动 (ay 两 孤 
-. М1 — а?ѕіп (аг) iB m (6), fE 5 fE Н FE Fa 
Б |acosh( VT — айл) аЗ Е). 总 个 运动 过 
0 << 1) 程 中 各 孤子 运动 速度 大 小 
人 不 发 生变 化 ,能 量 无 损失 . 
此 解 具 有 周期 了 = 4 wt=nr =0,+1, nit фбс) 0, 


当 oit 一 2ar 十 方 时 ,对 于 各 点 + 皆 达 到 其 正 的 级 大 帆 什 4tg 11sech 


(VISE) ) i ПІЗ wt=2nx 一 了 时 :在 各 点 到 负 的 极 大 幅 值 
ІҢ 7-5 是 根据 (7 一 32) 式 编制 的 程序 7-7 SOLITN 运行 时 四 个 不 
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同时 刻 显示 在 屏幕 上 的 图 象 . 从 图 可 见 ,(7 一 32) 式 表征 局 域 在 某 
个 空间 小 区 域 发 生 的 随时 间 周 期 性 变化 的 振动 ,很 象 呼吸 的 起 伏 
过 程 , 故 取 名 为 呼吸 子 , 与 一 般 孤 子 的 运动 方式 不 何 , 呼 吸 子 不 能 
离开 所 在 小 区 域 ( 定 域 性 ), 它 类 似 于 定 域 的 驻 被 ,是 一 种 定 域 振 
动 . 在 友 式 聚 乙 锯 中 , 当 电 子 - 空 穴 对 演变 为 孤子 - 反 孤 子 对 以 后 ， 
孤子 与 反 弧 子 以 一 定 速度 相互 分 离 . 孤子 与 反 孤 子 分 离 得 很 远 之 
后 ,在 其 中 部 的 小 区 域内 仍 存 在 这 种 定 域 振 动 ,也 就 是 说 广发 产生 
了 呼吸 子 . 


图 7-5 呼吸 子 运动 时 在 不 赔 时 刻 的 图 象 : 
瞬时 位 置 依次 为 ubcdedcbub*… 


程序 7-7 孤子 运动 、 双 孤子 碰撞 以 及 
呼吸 子 运动 的 演示 


一 , 往 序 名 :SOLITN 


二 ,功能 


基于 Sine-Gorden 方程 的 解 , 输 入 孤子 的 商 度 .宽度 和 运动 速 
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E ,在 屏幕 上 显示 莪 子 的 运动 或 两 同 号 孤子 的 碰 兵 ;输入 呼吸 子 的 
e PE .宽度 和 频率 ,在 屏 攻 上 显示 呼吸 子 的 运动 . 


=. mI 


1. 按 (7 一 17).(7 一 29) 和 (7 一 32) 式 分 别 计 算 Sine-Gorden Ж 
РВИ Сс), W IK TW 六 (zx, 和 呼吸 子 解 g Cat), 
2. 按 (7 一 19) 和 (7 一 30) 式 分 别 计算 单 孤子 解 和 双 和 孤子 解 的 仿 


2 аР у" Се, 
з. 以 横 坐 标 表 示 一 维 链 的 z 值 , 纵 坐标 表示 ф RENA. 在 
屏幕 上 ,用 白色 光 点 表示 在 了 处 gz 和 二 %Cr, 的 幅度 . 


4. 每 次 将 + 增加 一 个 小 量 4 计算 Фа HANME ұт. 
ADEJE. 在 屏幕 上 消 卖 上 一 时 刻 的 光 点 并 面 二 当前 时 刻 的 交点 ， 
МЕНЕЕ КИ ЖЕЛ f B) J: ЕЛ, АЛҒИ РӨП ЕЁ o 72 ад Ú!) 
GET 


四 .流程 图 7—7 


五 .变量 说 明 


* 为 输入 变量 . ЕЕ HZ AR XI РУ. 

ITYPE Ж.Т), ХЦ), ЗОТИ). 
Н.Р В) ЕЛЕ А. 
B° HEARTH ЕЕ 6. 
V’ :孤子 的 运动 速度 0.0<47<21. 
W ° ;呼吸 子 的 呼吸 频率 со, 0<2е<21. 
ІТ, e. 
ІХ. В: +. 
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30, ІТҮРЕ--1.3 


HW TIME= | 


125, ІТҮРЕ= 2 
Ne 
ІТ--ІТ-Е1 
Ix = — 60 
ете 


= ПҮРЕ=7 => 


1 2 3 | 
计算 类 fx， IFE (x, t) : 


消去 屏幕 上 前 一 时 刻 的 光 点 画 上 当 
ВЕ ЭТ ФО, ЖІ Сх, 96 3 


MERRET ЖЕШ Еж 
C 


流程 图 7 一 7 
PSAI,DPSIDX ;分 别 是 (z, REMM Сс) ;为 纵 坐 标 . 
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六 , 子 程序 说 明 


下 面 介 绍 在 屏幕 上 画图 时 常用 的 SCREEN ,PLOT ЖІ СЕТ 
汇编 子 程序 . 本 程序 中 来 用 到 GET ,但 在 程序 1-4 DISMOV 中 用 
PE. 

1. SCREEN (ІС) 

汇编 子 程序 . 用 于 选择 屏幕 的 显示 模式 ,常用 的 选择 有 : 


IC # ж ЖЕ 
0 | 40X25(320X200) 黑 白字 和 母 数字 W t PC, EGA 
40 X 25(320 X 200) 彩 色 字 母 数 字 彩色 ,PC EGA 
80X25(640X 2008 ТЕПТІ. Ee. PC «ЕСА 
El 80 x 25(640 x 2003 彩 色 字 母 数字 彩色 ,PC @ EGA 
4 | 320x200 E 8 r. a q NIE 66.РС, СА | 
5 320200 TARE 灰色 阴影 -PC.》 彩色 .PCr,EGA 
6 | 640X 200 黑白 图 形 彩色 ,PC EGA 


7 | 80X25(720 x350 E H =E nk tr = 单 色 ,EGA 


所 以 .采用 SCREEN 转换 屏幕 的 显示 神 式 时 ,IC 的 值 的 选取 
应 与 所 用 微机 的 显示 器 和 适 配 卡 的 型 号 一 致 . 在 屏幕 上 显示 的 图 
形 的 质 基 决定 于 所 用 的 显示 器 质量 . ШИЕ А. ДЕТЕ 
ЖИ. | 

2, PLOT(IX ҮИС) 

汇编 子 程序 , 在 屏幕 上 的 (IX,IY) 点 显示 交点 ,IC APR e ED, 
通常 的 选择 为 0( 黑 色 ),1( 绿 色 ),2( 红 色 ),3( 白 色 ).IC=0 用 于 消 
БЕЖ КЕЗИ ЖК. 

3. СЕТ(ІХ ,IY) 

汇编 子 程序 . K RLE EAX, IYA ИЛЕ НИН GET. 
使 用 时 ,在 它 出 现 的 程序 段 应 加 类 型 说 明 语句 ;INTEGER СЕТ. 
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七 .计算 实例 


1. А0355). НХ ІГҮРЕ=1, 88 А=13,% 8 2=5, 
хе ВР U=0.5(0<U<1). 在 屏幕 上 同时 显示 "(тю у" С.) 


HEZ. RE 7-3, CWI EMT AE S£ BJ Zc Wi *l| # НУІ 50. 
ЖАНЕ ЕНУ Е: ITYPE=2,W f RIE h=—=13, 
宽度 p=1(1=<0=11.6),#ë Hf U= 0. 5(0<17<1). ЖИЕ ЕНІН 


RP DME DAR, CRRA Е ЕИН ВОТ 


ЛЕЙ НАЕ 2) , КН ЕНІН БЕ НТ H а. (ЕНЕ, И, 
7-4. 

3. 吸 呼 子 的 运动 ; 取 ITYPE= 3, ЕРИ FAE h=30, % BE p= 
5, 呼吸 频率 wo 一 0.5(0<o<1), 在 屏幕 上 显示 pan RR Е 
示 呼 吸 子 局 域 在 一 维 链 的 某 一 小 区 域 作 呼 吸 运 动 , 见 图 7-5. 

本 程序 运行 时 ,采用 人 机 对 话 方式 按 屏 幕 担 示 以 有 由 格式 键 
入 输入 数据 . 

运行 指令 ;SOLITN 


八 、 源 程序 ;SOLITN + FOR 


PROGRAM SOLITN 

INTEGER PSAI(140) ,DPSIDX(140) 

DATA Р5А1(1».рР5ІОХ(13/1.1/. 

/ ІХО.1Ү10,1У20,1ү30/150,70,100,150/ ` 

DATA Р1Ї/3. 1415926/ 

WRITE (rr SELECT THE TYPE FOR SIMULA” 
/,'TIONS;:*/3X., "[INPUT L(SINGLE SOLITON)” 
/А7.2СТУО SOLITONS), OR 3(ВЕЕАТНЕЕ)] WY) 

READ (x, * ) ITYPE 

GO ТО (10.10.2002 ІТҮРЕ 

10 WRITE (* ,'(" INPUT THE HEIGHT ОЕ”, 
/ “SOLITON; h = 799 
READ (* ,*> H 
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WRITE Cx ,'(” INPUT THE WIDTH OF SOLITON: 
/ 2” Ъ 一 一 HNI) 

READ (ж, «ЭВ 

WRITE (+ °C INPUT THE VELOCITY ОЕ”, 


/ "SOLITON: v = "о 
КЕАр(%,%)У 
СОТО 30 
20 WRITE ( * ,*(** INPUT THE HEIGHT OF ”, 
/ “BREATHER: h = '"\)”) 


READ (x=, #0 H 
WRITE (» ,*(* INPUT THE WIDTH ОЕ”, 
/ ”ВКЕАТНЕК. = ?#\у”) 
READ (* ,*) B 
WRITE (+ ,INPUT THE FREQUENCY ОЕ **, 
/ "BREATHER: w = PW’) 
READ (* ,*) W 
39 CALL SCREEN G4) 
IF{ITYPE. FQ. 33 СО ТО 40 
V1=SQRT(1—V * V) 
V2=V/V1 
СО TO 50 
40 W1=SQRT(1—W * W) 
W2= W1/W 
50 МТІМЕ--30 
ІЕСТҮРЕ. EQ. 2) NTIME=NTIME + 4 十 5 
DO 140 МТ == 一 NTIME .NTIME 
L=0 
DO 140 МХ = — 60,60 
Ш = +1 
ІХ =1х0+ NX 
CALL РІ,ОТОХ,РЗАКІ,),9) 
СО ТО (60,70,90) ТГҮРЕ 
60 Z1=FLOATú(NX)/V1/B 
Z2=WV%=* FLOAT(NT) 
Еі--АТАМ«ЧЕХР(71--229? 
СО ТО 80 
70 Zl=FLOAT(NX)/V1/B 
Z2= V2 + FLOAT(NT) 
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80 


94 


100 


110 


130 


140 


Еі--АТАМ(У + SINH(Z1>/COSH¿Z2)) 


PSAI )=IY10-—INT(F1 + H) 
GO ТО 100 

Z1=FLOAT(NX) + W1/B 
Z2= W + FLOAT(NT) 
С1:-СО5Н(21) 

51 =5IN (22) 

FF=W2+S1/C1 

Еі-- ATANKCFF) 
PSAICLy=IY20-—INTúá&F1 + H) 
CALL PLOT(IX.PSAI(L),3) 
IF(ITYPE. EQ. 3) GO ТО 140 
CALL PLOT(IX,DPSIDX(L 2,0) 
GO TO (110.,129.140) ITYPE 
F2=1.0/(V1 + СОЅН(21—22)) 
GO ТО 130 

Сі= СОЅН 41) 

С2=СОЅН (22) 

51=851ҸН(21) 

F2=C1 # С2/ (51 * 51-062 * C2) 
DPSIDX (L) =1Ү30—3 «ІКМТХЕ?жН) 
CALL РІОТОХ.ОРЗШОХ(1,.,3) 
CONTINUE 

PAUSE ° ? 

CALL SCREEN(2} 

STOP 

END 
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附 ж 


I. 和 矩阵 的 符 征 值 与 特征 向 量 


和 矩 阵 方法 被 广泛 用 于 固体 的 电子 结构 及 物理 和 性质 的 计算 ,其 
中 很 重要 的 一 环 是 求实 对 称 乍 阵 的 特征 值 积 特征 问 草 . НАТ. АЈ 
比 法 是 广泛 用 来 求实 对 称 阵 全 部 特征 值 与 特征 向 量 的 方法 ,属于 
解 特 征 值 问题 的 变换 法 , 其 基本 思想 是 把 对 称 阵 4 经 一 系列 正 奖 
相似 变换 化 为 一 个 对 角 阵 . 对 角 阵 的 对 和 角 元 就 是 А 的 特征 值 ,而 
H Pr PE TE E НУ E RER ЯЕ АЈ RFS GE Hl Ж. 


一 .特征 值 问 题 的 引 人 


КАН ТЕН ЕЕ РЕТ, АЖЕ 
£ ñi zt Б.Т ЛЕЛИ ХЫ ЕУ ЖЕНА Э.Е 为 体系 的 总 能 
EH БЕШИН. BE Z са ЕЕЕ 


H = Еф (附录 1 — 1) 
8 £ ES ЖЕ АЯ: 
H, H, Ны “е H, 
p= jip не нт Ha 


H a H „, : т” 
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Ф, 
Е 
Е 0 
Е 一 
9 Е 


. 特 《 附 录 1 一 2) 代 入 (附录 1 一 1) 式 得 
2, (H, — EDP, = 0,4 = 1,2-1 (附录 1 一 3) 


方程 (附录 1 一 3) 有 和 非 零 解 的 充 要 条 件 是 
ІН - ЕП = 0 (附录 1 一 4) 
ED 
Н, — Е Н» шіні H, 
Н» | Н,-Е ~ 


Ф 1 — 5) 
47, AMA Е н КА УСЕ E ПРЕК ЛЕН 
列 , 则 有 
fa (E) = a,E* + ap E" + +=: + aE + a E + а, = 0 
(附录 1 一 6) 
(附录 1—6) EE H HRES MA Ei n KHARABE. 
由 (附录 1 一 6) 式 可 以 求 得 ”个 根 , 进 而 求 方程 组 (附录 1 一 3) 的 特 
征 向 量 O, , X XT Ға 较 小 的 情况 是 可 行 的 . 这 时 问题 变 成 了 求 哈 
НЕЕ H 的 特征 根 及 特征 向 量 . 
因为 Н 为 厄 米 算 符 ,所 以 险 密 顿 矩 阵 五 ЛЕЖЕ Р, Ж 
ЯН ЖАННА КЖ ИШ ЕН 为 复数 ,只 需求 解 其 实数 部 
分 的 特征 根 就 行 了 .这 一 来 , 求 窍 阵 H 的 特征 根 及 特征 向 量 转 化 
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为 求实 对 称 矩 阵 的 特征 根 及 特征 向 量 . 
二 . 雅 可 比 计算 方法 


雅 可 比方 法 是 一 种 用 平面 旋转 矩阵 所 构成 的 正 交 相似 变换 ， 
将 矩阵 化 为 对 角 型 的 方法 , 适用 于 阶 数 不 太 遍 的 实 对 称 滤 阵 . 它 是 
一 种 经 典 方法 ,其 基本 思想 是 利用 一 系列 相似 变换 , 恢 次 使 矩阵 
Н 非 对 角 元 了 系 趋 同 于 0. 

为 了 更 明确 其 变换 过 程 ,我 们 从 一 般 矩 降 4 H K VE H iE 
阵 ) ,进行 讨论 由 上 面 上 所 说 的 雅 可 比方 法 ,可 知 其 实质 为 


а а; Ü Ain Л, Ü 


Е 4455495545 5845559595 


c O RK H T KU L RK S ZK S K KK 


(附录 1 — 7) 
Às sAr A, НАЧЕВ. 
为 方便 理解 , 先 从 最 简单 的 二 维 空 间 开 始 . 我 们 知道 ,一 个 椭 
贺 方 程 可 以 通过 转轴 变 成 标准 形 , 即 
ап: 0 7 аһ = | = A y t FA = 1 
《附录 1 一 8) 
这 时 如 附 图 1-1 所 示 , 新 的 坐标 Оу, Оу, 是 这 桶 圆 的 主轴 方向 . 在 


ЖТТ ТЕТРА 
в. 


21 == усоѕ 0 — ysin 0 | 
( ] — 9 
К = ysin f + у,соѕ 9 ж ) 
1 Ч дар С 
Й = 一 ta Ц -—- —— — — ta 1 一 
| (附录 1 一 10) 
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(附录 1 一 8) 式 转轴 变换 是 一 
MEZARI P£. 

(附录 1 一 10) 式 箭头 左边 
ЖЖ [Гл PLE Ж 

ба. ж) M Е H -1 
ап GJ 2; 

《附录 1 一 11) 

N мі Ў FR KB RE san нын 


@2\ 


а», Кж 1—9) ШЖ Ez [w] Bt 
表示 为 
x, cos f — sin д 
Ë x ии 0 сов 0 
将 (附录 1 一 12) 代 入 (附录 1 一 11) 式 ,有 


cos В вш 6 | Е | 0 — sin í y 


一 sin Ë соз 0 


” 附 图 1 一 1 坐标 转换 


% (附录 1 一 12) 
Уз 


= 
Уз 


(附录 1 — 13) 
将 (附录 -DRAAD aR 1 一 13) 式 进行 比较 得 : 


р-1 Е 412 р = A 0 | 
а; ч и | М жекен 
н Кр А", Е] | 


e- 


(y, 3 


а; а JA sin 0 cos 0 


соз sin 0 


| H 1 一 15) 
-- біп @ cos ё 
由 (附录 1 一 14) 式 可 见 , 矩 阵 4 经 过 了 相似 变换 变 成 了 对 角 阵 


А, 411 12 
ñ Р i ,因此 求 得 了 P j ШІ. 
mwaka =m. ГЕ Wë PR HINT ЖЕ 
z! + Алуа + zŠ + 27; + z! + хл, = ] 
《附录 1 一 16) 
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与 坐标 平面 Оху; H 2 k kL — 4" WE [Bl ‚ВП 

тї + 4х, + z? = 1 《附录 1 17) 
把 坐标 轴 Or Or: 5 От, МН 0 角 , 即 可 使 这 椭圆 在 新 坐标 系 
中 取 标 准 形 : 


Ау + Ау + Ay = 1 (附录 1 一 18) 
| Ë 11 (1 
AF IND’ З-ЗА. 
1 3 
= 1 | да _ 1 a 4 | 
ф = tg а зды 2S 1171 
《附录 1 一 19) 
. 0 = 45° 
这 时 有 
Кү == кы Б у) 
1 《附录 1 一 20) 
zı = iY + X) 
2 J? Yi 5; 
у 一 Уу; 


РЕЧИ Ж 1 一 20) 式 代入 (附录 1 -16)? 式 但 新 方程 : 


1 
Зу 十 x: + yi + е, а =?! = 1 


(附录 1—21) 
方程 (附录 1 一 16? 用 和 矩阵 表示 为 
f 2 1 
2 1 "a 
(H 6 Ta)! 2 | tr:|= 1 (HF 1 一 22) 
вр" 


ІЗ Ос, 轴 旋 转 45" 后 ,( 附 录 1 一 21) 式 恋 为 
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2 v 2 
Yi 
(у, у Уз) 0 1 Біте. жіті 
ЗР ЧВОР іш 
РЕ 2У2 
(附录 1 一 23) 


比较 这 两 个 对 称 和 矩阵 ,它们 对 角 线 上 的 元 素平 方 和 由 3 增加 到 
11, 和 而 非 对 角 线 的 元 素平 方 和 则 由 原来 的 10 六 减少 到 2 Опол 
平面 上 的 非 对 角 元 变 成 了 0 

新 轴 用 y 表示 ,再 绕 Оу, 轴 作 一 次 能 转变 换 ,把 Озу 平面 与 
(附录 1 一 21) 式 表示 的 椭 球 截面 化 成 标准 形 , 设 绕 Оу, 轴 转 动 9 
角 ， 


1 
g= ligi YE ш (附录 1 一 24) 
Siga g s жете РРА Í (zz 十 z4} 
¿2 w 2 
《附录 1 一 25) 
ҚЖА EEH.: 
зї+[|1——=|+[1+——5— ЖҮК. ЖЕРИ pasl 
2⁄2. 2 2 2 2 
(附录 1 一 26) 
(附录 1— 26) BJ У 
з а l 
21 
(z1 ж; z4) š Қа 0 Е 
3 ру 
Ñ 0 1+ = 


《附录 1 — 27) 
附录 9! 


对 称 阵 4 的 对 角 线 上 元 素平 方 和 增加 到 11 二 , 非 对 钊 元素 平方 


和 减少 为 2 士 ,Oyzys 平面 上 的 两 个 非 对 角 元 变 成 了 0 

由 此 看 到 ,每 作 一 次 变换 ,对 称 矩 阵 А 的 对 角 线 上 元 素平 广 
和 总 是 增加 ,而 非 对 角 元 素平 方 和 总 是 减少 . 此 外 ,az 和 an BER 
一 次 变换 已 变 成 了 0, 但 在 第 二 次 变换 中 又 变 成 了 不 是 0 的 元 素 ， 

“如 果 进 行 反复 的 变换 ,就 有 可 能 使 对 称 矩 阵 4 的 对 角 线 上 元 
素平 方 和 全 变 铺 大 ,而 非 对 角 线 元 素 趋 向 于 0, 这样 就 求 得 了 矩阵 
的 特征 根 . 

下 面 把 变换 推广 到 nXn 阶 的 对 称 正定 矩阵 的 户 行 .9 行 ;p 
Ў.а 列 的 元 素 上 , 令 an 天 0, 否 则 4 已 经 对 角 化 了 . 设 q> p, fE 
Oz, 5 Ол, 平面 上 将 坐标 轴 正 向 旋转 ( 道 时 针 方向 )8 角 , 即 作 转 
MER 


(р) (9) 
] А 
I 
A ӘЛІ жик» хый е Кб? 
l 
R(p,qg 8)= 
l 


"ҮТ. sin P cos д "TETY (а) 


1 
(附录 (1 一 28) 
R(p,9,98) 称 为 旋转 阵 , 它 是 在 单位 阵 了 的 5p 行 p 1:9 ig 列 的 
X TB EB М о к„„=соз sru = — sin @,r,,=sin 人 一 cos 0 T 
形成 的 . 
前 面 已 设 4 为 对 称 阵 . 记 A= A, Jt A 作 一 系列 旋转 相似 变 
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Y ; 


А, == Ri 14,45, > А, == R,'AR,, s. ,44; тш R; A; Қ, ...... 
《附录 1 一 29) 
旋转 阵 R G= 1, 2,618 ЖЕЛЕ р.а 使 an "|= max 
<<<, Ғ.А 
í j 


|а: D|; 选取 9 使 lqg% | =. 

经 旋转 相似 变换 得 到 的 4，, 仍 保持 对 称 性 ,并 且 由 4，: 变 到 
А» H£ A, /的 pp 行列 ,g 行 9 列 发 生变 化 而 其 它 不 变 , 计 算式 
Ж: 


Гар = ар "cos 0 + аф Vsin 0 = aj 


(j= pa) 
a == — ас Әзіл 0 + а; соз 0 = ар? геч 
аб = a$ Бсов:0 + 2att-Dsin дсоѕ 0 + ap "sin? 
АШ = a% “sinh — 2a% Psin бсоз 0 + а cos? 
аы = (ай P — a Psin Әсов 0 + att P (eost — віп?0) = а? 
ай = d 0,1,3 56 род 
《附录 1 — 30) 
按 R, 的 选取 要 求 ,em 二 0,8 应 满足 
за“ 1) 
(gs чы ы (附录 1 一 31) 
а, а“ 


Жары |0163. E a = ag U WS ав 7220,6 0= i 


Шай OZOR g=- 
从 公式 (附录 1 一 30) 可 知 , 实 际 计算 只 要 算 sin 9,cos 2. 它们 
的 计算 公式 可 由 公式 (附录 1 一 31) 导 出 . 令 
у = cos 20 = |a” 一 ae | 《附录 1 一 32) 
х = sin 20 = вірп (а, — ай 9) s Zat ” 


(附录 1 一 33) 
其 中 sign 是 一 个 符号 图 数 , 当 
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(ahh — а20)> 0 取 值 1 
(aq — ag 7) = 0 ЖЯО 
(a — 0-9) <0 取 值 一 1 


出 tg 20 一 二 (附录 1 一 34) 


根据 
___1___ 
м1 + tg°280 


cos 20 = зіл 20 = 4р20» cos 20 


(附录 1 一 35) 
即 可 得 


сов 20 = 


>》 
мағы 


ega й ks 


sin 20 = 


(附录 1 一 36) 

x 
ма + y 
sin 20 
2cos 0 
可 以 证 明 , 当 &->oo 时 ,4 对 第 阵 A. 

值得 注意 的 是 ,因为 求 阶 矩阵 的 特征 值 ,等 价 于 求 z 次 多 项 
式 的 根 , 而 五 次 以 上 多 项 式 的 根 是 不 能 经 有 限 次 算术 运算 计算 出 
来 的 .所 以 ,一 般 说 来 ,把 A 化 为 对 角 阵 实际 上 不 能 在 有 限 步 中 完 
成 ,只 能 通过 登 代 步骤 求 近似 值 . 

实际 计算 时 , 当 上 & 充分 大 ,就 可 取 

а) 2 А, (i= 1,2.) (附录 1 一 37) 

这 里 的 入 并 不 表示 特征 值 的 大 小 次 序 , 控制 登 代 结束 的 信和 号 ,可 
由 


sin f = 


r= У) [а | < е (附录 1 — 38) 
{i j=l 
i+ j 
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给 出 . H T A, 的 对 称 性 ,所 有 的 运算 都 只 需 在 上 三 角 部 分 进行 , 这 
样 不 仅 减少 了 运算 量 , 而 且 能 保持 严格 的 对 称 性 . 
4 的 特征 向 基 可 以 与 特征 值 同 时 求 得 , 设 经 m 次 旋转 变换 秋 
{йн ж, Д0 
a = К.Р, RAR Р, 《附录 1 一 39) 
та Р.К“ R. R. P, 仍 为 正 交 阵 , 于 是 


A, = P'AP зе À (附录 1 一 40) 
ШЯ АР. == PA (附录 1 一 41) 
Pa 第 j 列 就 是 4A 对 应 的 标准 正 交 特征 向 量 的 近似 值 , 
三 . 几 种 实用 雅 可 比 算 法 


第 一 种 方法 是 把 非 对 角 元 按照 行 的 次 序 241% %64138» "а 61,9 06073) 
824977743, 9777, - ә КОК ЗЕ. 作 完 一 尊称 为 一 次 扫描 . 一 次 扫描 
后 ,前 鹉 已 化 零 的 元 可 能 成 为 非 等 元 ,需要 再 次 扫描 ,这 一 方法 称 
为 循环 雅 可 比 法 . 其 缺点 是 对 一 些 已 经 足够 小 的 元 隶 扎 要 作 化 淮 
处 理 , 这 完全 没有 必要 . 

第 二 种 上 方法 是 先 确定 一 个 阅 值 4 之 0, 然 后 按 21: „а133**% 5234, 
зз Qy sds" Q, -La АКН а: 与 ЕР | EEL, |а| <а, 则 不 
作 运 工 ; Жарға, ИЕККЕ Жа ЖАНА 
次 , 当 所 有 非 对 角 元 绝对 值 才 小 于 а, 后 ;再 选 а, (a > >0ЛЕН 
值 重 复 上 述 过 程 . 依次 wm>>w>>…>>w>>0, 直 至 达到 所 需 的 精度 为 
JE. 这 一 方法 称 为 限 值 雅 可 比 法 ， 

第 三 种 方法 ,也 有 更 有 效 的 算法 ,是 把 限 值 雅 可 比 法 与 循环 雅 
可 比 法 结合 起 来 . 先 在 头 几 次 循环 中 使 用 限 值 站 可 比 法 ,经 过 几 个 
循环 ,在 矩阵 非 对 角 元 绝对 值 的 大 小 已 相 吉 不 大 时 ,再 使 用 几 次 循 
环 雅 可 比 法 . 


І. 蒙特 卡 洛 (Monte Carlo) 方 法 简介 


在 固体 物理 学 中 ,一 方面 经 常 要 对 一 些 随机 性 的 头 验 测量 结 
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果 ( 随 机 变量 ), 用 适当 的 数学 方法 进行 处 理 , 以 揭示 物理 现象 的 规 
律 性 ; 田 一 方面 ,也 常用 适当 的 数学 方法 对 物理 问题 中 的 随机 现象 
进行 数学 模拟 和 统计 分 析 , 从 而 获得 与 实验 研究 相同 的 效果 . 这 种 
定量 研究 随机 现象 规律 性 的 数学 , 称 为 随机 量 数 学 , 它 是 一 门 正在 
迅速 发 展 的 科学 . 蒙特 卡 洛 方法 就 是 其 中 的 方法 之 一 -， 

固体 物理 学 工作 者 ,经 常 要 研究 随机 变量 的 分 布 规律 , 用 解析 
方法 求 随机 变量 的 分 布 往往 是 很 困难 的 ,而 用 实验 法 研究 随机 变 
量 的 分 布 又 需要 进行 大 量 的 反复 实验 ,耗资 太 大 . 在 许多 情况 下 ， 
可 以 用 一 些 数学 模型 去 模拟 实际 物理 过 程 ,得 到 随机 变量 的 样本 ， 
再 通过 统计 方法 求 出 其 估计 值 ,从 而 得 到 物理 问题 的 近似 解 , 这 种 
数学 方法 就 称 为 蒙特 卡 洛 方 法 . 当今 电子 计算 机 的 出 现 和 高 速 发 
展 , 为 蒙特 卡 洛 方法 提供 了 极 有 力 的 工具 . 


一 , 漠 丰 问题 


蒙特 卡 洛 方法 的 发 展 可 授 滑 到 18 世纪 著名 的 暮 丰 (Buffon) 
问题 . 1777 年 法 国 著 名 学 
者 薄 丰 提出 用 随机 投 针 的 
概率 计算 无 理 数 x 值 的 问 
ЕҢ. 该 问题 是 这 样 提出 的 
车 在 平面 上 闸 有 彼此 相距 
为 24 的 一 束 平行 线 ,向 此 
平面 上 投掷 长 为 22 的 针 ， 
0<<а. ЖИ АНЕ ЕО 附 图 2 一 ! 针 在 平行 线 间 的 位 轰 
行 线 相交 的 概率 . 首先 建 | | 
立 如 附 图 2-1 的 坐标 系 , 平 区 上 一 根 针 的 位 置 可 以 用 针 中 心 M 的 
№ х Ы у 轴 的 炎 角 0 来 决定 ,而 在 ?方向 的 位 置 不 影响 相 
交 性 质 . 任 疙 投 针 ,意味 寡 和 与 9 都 是 任意 取 的 .但 2 的 范围 可 限 
Flor] ex 的 范围 可 限于 [0,aj. 容易 看 出 , 针 与 平行 线 相 交 的 充 
T RIFA: 

492 


= =< ° sin 0 СЗ 2 — 1) 

下 一 步 就 是 模拟 投 针 , 即 产生 任意 的 [zx,8j., z 在 L0,aj 任 意 取 

信 ,意味 着 工 在 [0,aJ 上 了 更 任 一 点 的 梳 率 都 一 样 ,这 就 表示 工 的 概 
EA PP PR ЖА 


1 ка 

8; жж. (附录 2 一 2) 
0 ЖЕ 

同 理 ,4 的 概率 密度 函数 为 


1 х 
no 下 SEST (附录 2 一 3) 
0 
由 此 ,产生 任意 的 [z, 的 的 过 程 就 变 为 由 ЛООЯН =, f 
楼 8 的 过 程 ,容易 得 到 
824 (附录 2 一 4) 

21,6; 均 为 [0,1j」] 上 均匀 分 布 的 随机 数 ， 

每 次 投 针 相交 的 概率 为 隧 机 变量 x 和 #8 联合 密度 函数 的 积分 


p = | L] U Taza = $ = 2 (附录 2 — 5) 
Юі N W , H thE KEBO ҮТҮ ХАТА n, HE Z 

P = Ñ (附录 (2 一 6) 

所 以 М 一 й (附录 2 一 7) 

故 т 一 ШУ 《附录 2 一 8) 


于 是 ,可 用 投 针 试验 来 求 无 理 数 n 的 近似 值 . 
原则 上 说 ,只 要 试验 次 数 充分 大 ,就 能 得 到 好 的 结果 . 但 有 人 
试验 了 几 十 万 次 ,也 只 得 到 z=a=3:14, BJ АЕ ЕЕЕ. 要 提高 
精度 就 要 引入 许多 降低 方差 的 技巧 . 
由 上 面 讨论 可 着 出 ,适用 蒙特 卡 洛 方法 时 可 以 分 成 世 ТД: 
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(1) 产 生 一 组 随机 数 ;(2) 建 立 相 应 的 概率 模型 与 求解 该 模型 的 方 
法 ;(3) 对 求解 结果 进行 误差 分 析 . 


二 , 伪 随 机 数 的 产生 


АНЕ КЇ ЛЕМ Е ВЕНН. 在 这 种 数列 中 ， 
数 的 分 布 方式 应 当 按照 需要 选择 ,例如 是 均匀 分 布 的 或 者 基 非 均 
АУЫ. 随机 数列 的 产生 方法 ,一 种 是 找 一 个 实际 的 随机 物理 过 
程 , 辟 如 说 记录 放射 辐射 源 中 两 个 误 变 之 间 的 时间 值 ,再 将 结果 传 
送 给 计算 机 ,这 的 确 是 一 个 随机 数 . 但 是 ,一 方面 时 间 的 无 偏差 测 
量 很 困难 ;另外 ,这 种 随机 数列 在 实验 中 无 法 完全 一 致 地 重复 产 
E. 如 果 储 存在 计算 机 中 , 则 占 去 很 多 内 存 , 因 此 很 难 应 用 这 一 类 
的 随机 数 . 另 一 种 方法 是 由 计算 机 自己 生成 随机 数列 ,由 于 这 些 随 
机 数 不 是 从 实际 过 程 申 得 来 的 , 故 称 之 为 “ 伪 随 机 数 ”. 

随机 数 可 以 有 各 种 分 布 形 式 , 它 们 都 可 以 从 询 匀 分 布 随 机 数 
列 中 得 出 , 而 产生 均匀 分 布 随机 数列 的 数学 方法 又 有 很 多 种 ,下 面 
仅 介 绍 本 计算 程序 使 用 的 乘 同 余 法 . 

е [е] ЯЛЕ ЖК ДК, УЭ 

жь = CR, (Mod М) С 2 一 9) 
Кер C, M 和 初 值 xo 可 以 有 不 同 的 取 法 , 当 给 定 第 一 个 整数 >, 以 
后 ; 则 序列 中 每 个 数 可 由 前 一 个 数 按 ( 附 录 2 一 9) 式 求 得 . 符号 у= 
ztMod NN) 意 昧 着 ,如 xz 志 NN, 则 y=z; 如 zx 之 入 , 则 从 z FREN 
的 适当 倍数 ,使 其 余数 y< N ,例如 应 用 5z(Mod 64); 从 z,=1 出 
发 ,可 以 生成 以 16 个 数 为 周期 的 如 下 数组 : 
1.5.25,61.49,53.9.45.33,37.57,29,17.21,41,13,1-%" 
具体 应 用 时 .为 了 得 到 足够 长 的 周期 ,MM 应 选 得 尽 可 能 地 大 ,对 于 
16 位 机 ,允许 的 整 型 数 最 大 值 为 2 一 1,; 故 MM 可 取 25--32768;С 
选 5 或 3 的 奇 次 方 的 数 , 因 周 期 与 C 的 取 值 有 关 , 为 使 数列 相关 性 
AC RE M 的 值 ,如 本 取 C=899; 初 值 >, 的 选取 原则 是 比 
I M 要 小 ,县 不 可 太 大 ,程序 6-2 中 取 х,=13. 
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出 夹 同 余 法 得 到 的 随机 数 , 其 行为 完全 等 价 于 一 维 的 无 规 行 
走 问题 . 将 得 到 的 随机 数 用 模 M 进行 妇 一 化 , 则 得 0 与 1 之 间 的 
随机 数 ë 


X, 2. 
£, = М 《附录 2 一 10) 


它 的 概率 (或 称 频率 分 布 ) 均 匀 分 布 , 即 为 等 概率 分 布 . 

由 上 主 论 可 见 , 用 乘 邮 余 法 产生 的 均匀 随机 数 , 其 周期 长 度 是 
有 限 的 ,并 可 证 明 其 序列 自 相关 系数 也 不 为 零 . 但 是 ,在 用 其 它 数 
学 万 法 产生 随机 数 时 ,同样 也 有 类 似 的 缺点 , 事实 上 , 乘 同 余 法 的 
算法 简单 . 易 懂 ,容易 实现 , 它 所 产生 的 均匀 随机 数 的 统计 性 质 良 
-好 ,因此 是 当前 应 用 较 广 浆 的 产生 均 勺 随机 数 的 数学 方法 . 


三 .用 麦 曲 多 保利 斯 (Metroepolis) 方 法 求 统计 平均 值 的 偏差 
涯 我 们 用 (6 一 19) 式 求 某 一 温度 下 能 量 Е 的 平均 值 时 ,有 : 


《附录 2 一 11) 


К а= рро 如 果 对 上 式 的 计算 我 们 能 采用 一 定 的 方式 对 体系 的 
微观 状态 进行 随机 抽样 , 则 可 和 写 为 、 
(E) = M ECX (附录 2 一 12) 


其 中 X, 措 述 体系 的 一 个 微观 状态 ,EC(X,) 为 相应 微观 状态 所 对 应 
的 微观 量 ,2M 为 抽样 的 次 数 . 

对 币 观 状态 均 分 地 进行 抽 料 再 按 ( 险 录 2 一 12) 式 计算 平均 值 
«ЖАН ЕЕЕ Ғе, НЕЕ НУЫН 
ИЕН НІНЕН MA KE FH ETRA IK R ЕНІН T m 
使 得 到 的 平均 值 偏 低 . | 

为 解决 此 问题 ,选择 按 分 布 /( X НЕН ҒО: 
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£ 


— #H 
f(X) = ( жк 2 一 13) 
J aQ 


这 样 (附录 2 一 11) 式 变 为 ， 
М 
S> E(X,ye CSX] 
¿(E = 一 : М 
Утан сеху): 


м 
= DEX) (附录 2 一 14) 
2! 


但 是 ХУ АЕ їйлїї. ХА ТНА Ae (BI 
分 母 )》, 故 实际 上 问题 仍 未 解决 ， | 
麦 曲 罗 保 利 斯 为 了 解决 这 个 问题 ,设想 微观 状态 的 抽样 过 程 
通过 一 个 马尔 可 夫 过 程 来 进行 . 开始 体系 的 微观 状态 X, 的 分 布 f 
ХӘЛІН, ЖЕН M 一 人 时 ,随机 分 布 £ (X, 85 58] СЕЗЕ 2 
一 13) 式 的 f (X). XT X, Я X, МЕЛ ЕМЕН ЕЛ Ж 9 W 
(天 ;一 入 站 表示 ,在 步 数 МЕНХДИЬНЯВ R pt БАА 
观 状态 X, ЖП X, 之 问 满 足 细 致 平衡 条 件 : 
КХЫОРХ, 一 Хр = J (XWX; — Х,) 
(附录 2 一 15) 
于 是 有 
WX X) ЖА) ын 
W(X X) IXs" 
Ж 4Н=Н(‹(Х)—Н‹(Х),) 
上 述 马 尔 可 夫 过 程 通常 称 为 马尔 可 夫 链 ,为 了 构造 一 条 马尔 
可 夫 链 ,进一步 取 链 上 两 个 微观 状态 之 间 的 路 迁 上 几率 为 
Иа АЯ 
1 u SHKO 
《附录 2 一 17) 
K RB E ЛЕ УЛАА КЕЛЖ Р 1, RAN RERE JU 
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(ІҢ 2- 16) 


率 为 1, 因此 用 (附录 2 一 17? 式 可 以 确定 马尔 可 赤 链 进行 的 方向 ， 
当 SHKO REN XX HS 时 , 则 进一步 用 下 式 进行 
判断 

een < ЖА X, — X, 

Н > 6 АЙ X, -> X, 《附录 2 一 18) 
其 中 上 值 是 一 个 0 与 1 之 个 的 随机 数值 (附录 2 一 18) 式 说 明 能 量 
增加 较 少 的 状态 是 允许 的 ,能 量 增加 较 多 的 状态 不 允许 ,判断 标准 
是 用 随机 数 .物理 上 原因 是 体系 存在 涨 落 . 

在 马尔 可 夫 链 经 过 NN 步 (N 很 大 ) 以 后 ,可 以 认为 体系 从 随机 

的 初始 状态 出 发 最 后 达到 了 平 街 态 的 附近 ,对 以 后 的 马尔 可 夫 链 
上 的 微观 状态 Шан жашыды 


(Ey = 5 У E(X: 《附录 2 一 19) 
i= М--1 
НМИНЕЛ ИА А 
1 М-М 
2. 上 r __ ? 
_ 1 2 — 2 
= МҮМ = Fa (CR) — (EYJ 
(附录 2 一 20) 
DE= CAE (附录 2 一 21) 


上 面 的 马尔 可 夫 计 程 ,对 能 量 的 情况 , 画 出 图 解 表 示 如 附 图 2-2. 
,蒙特 卡 洛 方法 的 应 用 


蒙 符 卡 洛 方法 应 用 的 面 很 广 , 如 解 篇 微分 方程 , 定 积 分 的 计 
算 ,求解 非 线性 方程 组 和 模拟 物理 问题 等 等 , 程序 6-2SPNENG 就 
是 采用 蒙特 飞 洛 方法 求 平衡 态 性 质 以 计算 二 维 自 旋 系 统 的 能 量 . 
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(Е) 


9) 5 (Ж) 


(马尔 可 夫 ) 


TAI s 


“ 
| 
| 
| 
{ 
| 
N N+M 
过 程 一 一 


НІН 2-2 能量 玉 的 马尔 可 夫 过 程 


LOMSTF. DAT 


程序 ?2-4 LQMSTF 的 输入 文件 : 


ЖЖ, 


' a(Q, T) FOR LIQUID Na 
3.37 0.464 -0. 46768-3 


0.927 -0. 24718-3 396, 5 


б 


56 
105. 200. 800. 450. 550. 


0,50 0.80 1. 10 1, 20 1.40 1.00 1.60 1. 65 1.70 
1.75 1. 80 1,85 1.90 1.95 2.00 2,05 2,10 2, 15 
2,20 2.25 2, 30 2.35 2. 45 2.80 2.65 2.70 2.80 
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